[LON-CAPA-cvs] cvs: loncom /interface lonsearchcat.pm

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 17 Jun 2003 16:01:30 -0000


matthew		Tue Jun 17 12:01:30 2003 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  Fix bug which caused the system to ALWAYS search only in the current domain
  if the user ever asked for the search to be limited (basic search only).
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.181 loncom/interface/lonsearchcat.pm:1.182
--- loncom/interface/lonsearchcat.pm:1.181	Tue Jun 17 11:53:56 2003
+++ loncom/interface/lonsearchcat.pm	Tue Jun 17 12:01:30 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.181 2003/06/17 15:53:56 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.182 2003/06/17 16:01:30 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -852,6 +852,13 @@
     # Loop through the keys, looking for 'form.'
     foreach my $name (keys(%persistent_db)) {
         next if ($name !~ /^form./);
+        # Kludgification begins!
+        if ($name eq 'form.domains' && 
+            $ENV{'form.searchmode'} eq 'basic' &&
+            $ENV{'form.phase'} ne 'disp_basic') {
+            next;
+        }
+        # End kludge (hopefully)
         next if (exists($ENV{$name}));
         my @values = map { 
             &Apache::lonnet::unescape($_);