version 1.2, 2003/07/28 20:14:17
|
version 1.3, 2003/07/29 14:13:36
|
Line 60 if ( $response->is_success ) {
|
Line 60 if ( $response->is_success ) {
|
#} |
#} |
|
|
my %records = ();; |
my %records = ();; |
|
print '<?xml version="1.0" encoding="UTF-8"?>'."\n\n"; |
|
|
foreach my $metadata (@loncapa) { |
foreach my $metadata (@loncapa) { |
chomp $metadata; |
chomp $metadata; |
$metadata=~s/[^\w\d\s\.\;\:\,\|\/]/ /gs; |
$metadata=~s/[^\w\d\s\.\;\:\,\|\/]/ /gs; |
Line 128 foreach my $metadata (@loncapa) {
|
Line 130 foreach my $metadata (@loncapa) {
|
next if ( $language ne 'seniso'); |
next if ( $language ne 'seniso'); |
my $primary_language='en-US'; |
my $primary_language='en-US'; |
my $creation_date = $tkline[10]; |
my $creation_date = $tkline[10]; |
my ($pub_year,$pub_month,$pub_day) = ( $creation_date =~ /^(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2}):(\d{2})$/ ); |
my ($pub_year,$pub_month,$pub_day) = ( $creation_date =~ /^(\d{4}) (\d{2}) (\d{2})\s(\d{2}):(\d{2}):(\d{2})$/ ); |
my $revision_date = $tkline[11]; |
my $revision_date = $tkline[11]; |
|
my ($rev_year,$rev_month,$rev_day) = ( $revision_date =~ /^(\d{4}) (\d{2}) (\d{2})\s(\d{2}):(\d{2}):(\d{2})$/ ); |
my $owner = $tkline[12]; |
my $owner = $tkline[12]; |
my $rights_description; |
my $rights_description; |
my $copyright = $tkline[13]; # public,domain,default,private (skip if private and domain) |
my $copyright = $tkline[13]; # public,domain,default,private (skip if private and domain) |
Line 148 foreach my $metadata (@loncapa) {
|
Line 151 foreach my $metadata (@loncapa) {
|
next if ( $copyright eq 'private'); |
next if ( $copyright eq 'private'); |
my $platform = "5"; # HTML Browser (not specified but construed from metadata) |
my $platform = "5"; # HTML Browser (not specified but construed from metadata) |
print (<<ENDMETA); |
print (<<ENDMETA); |
<rdf about="lon-capa.nsdl.collections/$baseid"> |
<oaidc:dc xmlns="http://purl.org/dc/elements/1.1/" |
<dc:title>$title</dc:title> |
xmlns:oaidc="http://www.openarchives.org/OAI/2.0/oai_dc/" |
<dc:creator>$author_fname $author_lname</dc:creator> |
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
<dc:subject>$keywords</dc:subject> |
xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/oai_dc/ |
<dc:subject>$subject</dc:subject> |
http://www.openarchives.org/OAI/2.0/oai_dc.xsd" |
<dc:identifier scheme="URI">$resourceurl</dc:identifier> |
> |
<dc:language>$primary_language</dc:language> |
<title>$title</title> |
<dc:description>$abstract<dc:description> |
<creator>$author_fname $author_lname</creator> |
<dc:date>$revision_date</dc:date> |
<identifier>$resourceurl</identifier> |
</rdf> |
<subject>$keywords</subject> |
|
<subject>$subject</subject> |
|
<language>$primary_language</language> |
|
<description>$abstract</description> |
|
<date>$rev_year-$rev_month-$rev_day</date> |
|
</oaidc:dc> |
|
|
ENDMETA |
ENDMETA |
} |
} |
|
|