version 1.93, 2001/04/02 21:18:35
|
version 1.94, 2001/04/13 18:09:15
|
Line 658 sub basicsearch {
|
Line 658 sub basicsearch {
|
my $query=''; |
my $query=''; |
my $concatarg=join('," ",', |
my $concatarg=join('," ",', |
('title', 'author', 'subject', 'notes', 'abstract')); |
('title', 'author', 'subject', 'notes', 'abstract')); |
$query='select * from metadata where concat(' . $concatarg . ') like %' . |
# $query='select * from metadata where concat(' . $concatarg . ') like "%' . |
$ENV{'form.basicexp'} . '%'; |
# $ENV{'form.basicexp'} . '%"'; |
|
|
|
$query=&build_SQL_query('concat('.$concatarg.')',$ENV{'form.'.'basicexp'}); |
|
|
|
|
# Get reply (either a hash reference to filehandles or bad connection) |
# Get reply (either a hash reference to filehandles or bad connection) |
my $reply=&Apache::lonnet::metadata_query($query); |
my $reply=&Apache::lonnet::metadata_query('select * from metadata where '.$query); |
|
|
# Output search results |
# Output search results |
&output_results('Basic',$r,$envhash,$query,$reply); |
&output_results('Basic',$r,$envhash,$query,$reply); |
Line 991 sub recursive_SQL_query_build {
|
Line 994 sub recursive_SQL_query_build {
|
if ($key eq 'literal') { |
if ($key eq 'literal') { |
$replacement="($dkey like \"\%$value\%\")"; |
$replacement="($dkey like \"\%$value\%\")"; |
} |
} |
|
elsif ($key eq 'not') { |
|
$value=~s/like/not like/; |
|
# $replacement="($dkey not like $value)"; |
|
$replacement="$value"; |
|
} |
elsif ($key eq 'and') { |
elsif ($key eq 'and') { |
$value=~/(.*[\"|\)]) ([|\(|\^].*)/; |
$value=~/(.*[\"|\)]) ([|\(|\^].*)/; |
$replacement="($1 AND $2)"; |
$replacement="($1 AND $2)"; |