version 1.9, 2005/11/29 20:02:23
|
version 1.10, 2005/11/29 21:02:52
|
Line 832 sub nsdl_query {
|
Line 832 sub nsdl_query {
|
if ($url) { |
if ($url) { |
my ($mime)=($url=~/\.(\w+)$/); |
my ($mime)=($url=~/\.(\w+)$/); |
$mime=~tr/A-Z/a-z/; |
$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.='&'. |
$allresults.='&'. |
&escape($result{'dc:title'}).','. |
&escape($result{'dc:title'}).','. |
&escape($result{'dc:creator'}).','. |
&escape($result{'dc:creator'}).','. |
&escape($result{'dc:subject'}).','. |
&escape($result{'dc:subject'}).','. |
&escape($url).',,,,'. |
&escape($url).',,,,'. |
&escape($result{'dc:description'}).','. |
&escape($result{'dc:description'}).','. |
&escape($mime).',seniso,,,,public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,'; |
&escape($mime).',seniso,'.$createdate.','.$createdate.','.&escape('public@nsdl'). |
|
',public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,'; |
} |
} |
%result=(); |
%result=(); |
} elsif ($token->[1]=~/^dc\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |