--- nsdl/lonsql 2005/11/24 21:34:31 1.7 +++ nsdl/lonsql 2005/11/29 20:02:23 1.9 @@ -3,7 +3,7 @@ # The LearningOnline Network # lonsql - LON TCP-NSDL Query Handler. # -# $Id: lonsql,v 1.7 2005/11/24 21:34:31 www Exp $ +# $Id: lonsql,v 1.9 2005/11/29 20:02:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -829,18 +829,25 @@ sub nsdl_query { } else { $url=''; } - $allresults.='&'. + if ($url) { + my ($mime)=($url=~/\.(\w+)$/); + $mime=~tr/A-Z/a-z/; + $allresults.='&'. &escape($result{'dc:title'}).','. &escape($result{'dc:creator'}).','. - &escape($url).','. - &escape($result{'dc:subject'}).',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,'; + &escape($result{'dc:subject'}).','. + &escape($url).',,,,'. + &escape($result{'dc:description'}).','. + &escape($mime).',seniso,,,,public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,'; + } + %result=(); } elsif ($token->[1]=~/^dc\:/) { $result{$is}=$cont; } } } $allresults=~s/^\&//; -&logthis($allresults); + return $allresults; }