--- loncom/interface/lonsearchcat.pm 2001/03/15 19:23:10 1.25 +++ loncom/interface/lonsearchcat.pm 2001/03/15 20:11:18 1.34 @@ -424,26 +424,54 @@ 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(<

Search Catalog

+$testval