Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.24, 2001/03/15 19:22:09 | version 1.25, 2001/03/15 19:23:10 |
---|---|
Line 435 sub basicsearch { | Line 435 sub basicsearch { |
my ($r,$envhash)=@_; | my ($r,$envhash)=@_; |
my %ENV=%{$envhash}; | my %ENV=%{$envhash}; |
unless (length($ENV{'form.basicexp'}) { | unless (length($ENV{'form.basicexp'})) { |
&output_blank_field_error($r); | &output_blank_field_error($r); |
return OK; | return OK; |
} | } |