version 1.37, 2001/03/15 20:59:00
|
version 1.39, 2001/03/15 21:42:05
|
Line 438 sub advancedsearch {
|
Line 438 sub advancedsearch {
|
return OK; |
return OK; |
} |
} |
|
|
$r->print(<<END); |
my $query=''; |
Advanced searching is not yet implemented. |
# my $concatarg=join('," ",', |
END |
# ('title', 'author', 'subject', 'notes', 'abstract')); |
|
|
|
$query="select * from metadata where concat(title) like '\%$ENV{'form.title'}\%'"; |
|
my $reply=&Apache::lonnet::metadata_query($query); |
|
|
|
&output_results($r,$envhash,$reply); |
return OK; |
return OK; |
} |
} |
|
|
Line 465 sub basicsearch {
|
Line 470 sub basicsearch {
|
return OK; |
return OK; |
} |
} |
|
|
my $query=$ENV{'form.basicexp'}; |
my $query=''; |
my $concatarg=join('," ",', |
my $concatarg=join('," ",', |
('title', 'author', 'subject', 'notes', 'abstract')); |
('title', 'author', 'subject', 'notes', 'abstract')); |
|
|