version 1.57, 2001/03/21 03:15:46
|
version 1.58, 2001/03/21 03:37:43
|
Line 494 sub advancedsearch {
|
Line 494 sub advancedsearch {
|
|
|
my @queries; |
my @queries; |
# Go through logical expression AND/OR/NOT phrase fields. |
# Go through logical expression AND/OR/NOT phrase fields. |
foreach my $field ('title','author','subject','notes','abstract') { |
|
|
foreach my $field ('title','author','subject','notes','abstract','url', |
|
'keywords','version','owner') { |
if ($ENV{'form.'.$field}) { |
if ($ENV{'form.'.$field}) { |
push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); |
push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); |
} |
} |
} |
} |
|
if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { |
|
push @queries,"language like $ENV{'form.language'}"; |
|
} |
|
if ($ENV{'form.mime'} and $ENV{'form.mime'} ne 'any') { |
|
push @queries,"mime like $ENV{'form.mime'}"; |
|
} |
|
if ($ENV{'form.copyright'} and $ENV{'form.copyright'} ne 'any') { |
|
push @queries,"copyright like $ENV{'form.copyright'}"; |
|
} |
if (@queries) { |
if (@queries) { |
$query=join(" and ",@queries); |
$query=join(" AND ",@queries); |
$query="select * from metadata where $query"; |
$query="select * from metadata where $query"; |
my $reply=&Apache::lonnet::metadata_query($query); |
my $reply=&Apache::lonnet::metadata_query($query); |
&output_results('Advanced',$r,$envhash,$query,$reply); |
&output_results('Advanced',$r,$envhash,$query,$reply); |