version 1.34, 2001/03/15 20:11:18
|
version 1.36, 2001/03/15 20:58:03
|
Line 471 sub basicsearch {
|
Line 471 sub basicsearch {
|
|
|
$query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'"; |
$query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'"; |
my $reply=&Apache::lonnet::metadata_query($query); |
my $reply=&Apache::lonnet::metadata_query($query); |
&output_results($r,$envhash,$concatarg,$reply); |
&output_results($r,$envhash,$reply); |
return OK; |
return OK; |
} |
} |
|
|
Line 521 RESULTS
|
Line 521 RESULTS
|
|
|
# ----------------------------- format and output results based on a reply list |
# ----------------------------- format and output results based on a reply list |
sub output_results { |
sub output_results { |
my ($r,$envhash,$testval,@replylist)=@_; |
my ($r,$envhash,@replylist)=@_; |
my %ENV=%{$envhash}; |
my %ENV=%{$envhash}; |
foreach my $reply (@replylist) { |
foreach my $reply (@replylist) { |
|
|