--- nsdl/nsdlloncapaorg/harvester.pl 2003/07/28 20:14:17 1.2 +++ nsdl/nsdlloncapaorg/harvester.pl 2003/07/29 14:13:36 1.3 @@ -60,6 +60,8 @@ if ( $response->is_success ) { #} my %records = ();; +print ''."\n\n"; + foreach my $metadata (@loncapa) { chomp $metadata; $metadata=~s/[^\w\d\s\.\;\:\,\|\/]/ /gs; @@ -128,8 +130,9 @@ foreach my $metadata (@loncapa) { next if ( $language ne 'seniso'); my $primary_language='en-US'; 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 ($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 $rights_description; my $copyright = $tkline[13]; # public,domain,default,private (skip if private and domain) @@ -148,17 +151,21 @@ foreach my $metadata (@loncapa) { next if ( $copyright eq 'private'); my $platform = "5"; # HTML Browser (not specified but construed from metadata) print (< - $title - $author_fname $author_lname - $keywords - $subject - $resourceurl - $primary_language - $abstract - $revision_date - + + $title + $author_fname $author_lname + $resourceurl + $keywords + $subject + $primary_language + $abstract + $rev_year-$rev_month-$rev_day + ENDMETA } -