--- loncom/interface/lonsearchcat.pm 2003/06/14 00:15:01 1.177
+++ loncom/interface/lonsearchcat.pm 2003/06/16 19:42:02 1.179
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.177 2003/06/14 00:15:01 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.179 2003/06/16 19:42:02 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1498,13 +1498,13 @@ sub parse_basic_search {
}
# Build SQL query string based on form page
my $query='';
- my $concatarg=join('," ",',
+ my $concatarg=join(',',
('title', 'author', 'subject', 'notes', 'abstract',
'keywords'));
$concatarg='title' if $ENV{'form.titleonly'};
- $query=&build_SQL_query('concat('.$concatarg.')',$search_string);
+ $query=&build_SQL_query('concat_ws(" ",'.$concatarg.')',$search_string);
$pretty_search_string .= "
\n";
- return 'select * from metadata where '.$query,$pretty_search_string;
+ return 'SELECT * FROM metadata WHERE '.$query,$pretty_search_string;
}
@@ -1621,9 +1621,9 @@ sub recursive_SQL_query_build {
my ($key,$value)=($1,$2);
my $replacement='';
if ($key eq 'literal') {
- $replacement="($dkey like \"\%$value\%\")";
- } elsif ($key eq 'not') {
- $value=~s/like/not like/;
+ $replacement="($dkey LIKE \"\%$value\%\")";
+ } elsif (lc($key) eq 'not') {
+ $value=~s/LIKE/NOT LIKE/;
# $replacement="($dkey not like $value)";
$replacement="$value";
} elsif ($key eq 'and') {
@@ -2130,6 +2130,7 @@ END
my $time_remaining = $max_time - (time - $starttime) ;
my $last_time = $time_remaining;
&update_seconds($r,$time_remaining);
+ &update_status($r,'contacting '.$Servers_to_contact[0]);
while (($time_remaining > 0) &&
((@Servers_to_contact) || keys(%Server_status))) {
# Send out a search request if it needs to be done.
@@ -2368,7 +2369,7 @@ sub display_results {
."\n"
);
if ($total_results == 0) {
- $r->print("There are currently no results.\n".
+ $r->print("