version 1.7, 2005/11/24 21:34:31
|
version 1.10, 2005/11/29 21:02:52
|
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/; |
|
my $createdate=$result{'dc:date'}; |
|
if ($createdate) { |
|
unless ($createdate=~/\:\d+$/) { |
|
$createdate.=' 00:00:00'; |
|
} |
|
} |
|
unless ($createdate=~/^\d+\-\d+\-\d+\s+\d+\:\d+\:\d+$/) { |
|
$createdate=''; |
|
} |
|
$createdate=&escape($createdate); |
|
|
|
$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,'.$createdate.','.$createdate.','.&escape('public@nsdl'). |
|
',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; |
} |
} |
|
|