version 1.7, 2005/11/24 21:34:31
|
version 1.9, 2005/11/29 20:02:23
|
Line 829 sub nsdl_query {
|
Line 829 sub nsdl_query {
|
} else { |
} else { |
$url=''; |
$url=''; |
} |
} |
$allresults.='&'. |
if ($url) { |
|
my ($mime)=($url=~/\.(\w+)$/); |
|
$mime=~tr/A-Z/a-z/; |
|
$allresults.='&'. |
&escape($result{'dc:title'}).','. |
&escape($result{'dc:title'}).','. |
&escape($result{'dc:creator'}).','. |
&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\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |
$result{$is}=$cont; |
$result{$is}=$cont; |
} |
} |
} |
} |
} |
} |
$allresults=~s/^\&//; |
$allresults=~s/^\&//; |
&logthis($allresults); |
|
return $allresults; |
return $allresults; |
} |
} |
|
|