|
version 1.31, 2001/03/15 19:38:49
|
version 1.32, 2001/03/15 19:47:37
|
|
Line 424 sub advancedsearch {
|
Line 424 sub advancedsearch {
|
| my ($r,$envhash)=@_; |
my ($r,$envhash)=@_; |
| my %ENV=%{$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); |
$r->print(<<END); |
| Advanced searching is not yet implemented. |
Advanced searching is not yet implemented. |
| END |
END |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsearchcat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface