loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.26, 2001/03/15 19:27:12
+version 1.32, 2001/03/15 19:47:37
  Line 424  sub advancedsearch {
      my ($r,$envhash)=@_;
      my %ENV=%{$envhash};
+     my $fillflag=0;
+     for my $field ('title','author','subject','keywords','url','version',
+ 		   'notes','abstract','mime','language','owner',
+ 		   'custommetadata') {
+ 	if (&filled($ENV{'form.basicexp'})) {
+ 	    $fillflag++;
+ 	}
+     }
+     unless ($fillflag) {
+ 	&output_blank_field_error($r);
+ 	return OK;
+     }
      $r->print(<<END);
  Advanced searching is not yet implemented.
  END
- Line 432  END
+ Line 446  END
  # ---------------------------------------------------- see if a field is filled
  sub filled {
-     return /\S/;
+     my ($field)=@_;
+     if ($field=~/\S/) {
+ 	return 1;
+     }
+     else {
+ 	return 0;
+     }
  }
  # --------------------------------------------------- Performing a basic search