--- loncom/interface/lonsearchcat.pm 2001/03/21 01:03:06 1.47
+++ loncom/interface/lonsearchcat.pm 2001/03/21 02:30:01 1.54
@@ -54,8 +54,10 @@ my %mimetag;
my $closebutton;
my $viewselect=<
-
-
+
+
+
+
END
@@ -490,7 +492,7 @@ sub advancedsearch {
}
}
if (@queries) {
- $query="(" . (join(") and ("),@queries) . ")";
+ $query=join(" and ",@queries);
$query="select * from metadata where $query";
my $reply=&Apache::lonnet::metadata_query($query);
&output_results('Advanced',$r,$envhash,$query,$reply);
@@ -591,7 +593,7 @@ sub output_results {
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1;
$reply=~/(.*?)\_/;
my $hostname=$1;
-
+ sleep 3; # temporary fix, need to check for completion and status
{
while (1) {
last if -e $replyfile;
@@ -605,14 +607,17 @@ sub output_results {
}
foreach my $result (@results) {
+ my @fields=map
+ {&Apache::lonnet::unescape($_)}
+ (split(/\,/,$result));
my ($title,$author,$subject,$url,$keywords,$version,
$notes,$abstract,$mime,$lang,
- $creationdate,$lastrevisiondate,$owner,$copyright
- )=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result));
+ $creationdate,$lastrevisiondate,$owner,$copyright)=@fields;
my $shortabstract=$abstract;
$shortabstract=substr($abstract,0,200) if length($abstract)>200;
+ $fields[7]=$shortabstract;
$compiledresult.=<
+