[BACK]Return to harvester.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl / nsdlloncapaorg

Diff for /nsdl/nsdlloncapaorg/harvester.pl between versions 1.8 and 1.9

version 1.8, 2005/11/25 19:29:56 version 1.9, 2006/05/10 16:28:56
Line 61  my @servers = ( Line 61  my @servers = (
 'meitner.physics.hope.edu',  'meitner.physics.hope.edu',
 'loncapa.vcu.edu',  'loncapa.vcu.edu',
 'lon-capa.ucsc.edu',  'lon-capa.ucsc.edu',
 'lon-capa.bsu.edu'  'lon-capa.bsu.edu',
   'harvard.lon-capa.org'
 );  );
   
 foreach (@servers) {  foreach (@servers) {
Line 141  foreach my $metadata (@loncapa) { Line 142  foreach my $metadata (@loncapa) {
  my $version = $tkline[5];   my $version = $tkline[5];
  my $notes = $tkline[6];   my $notes = $tkline[6];
  my $abstract = $tkline[7];   my $abstract = $tkline[7];
  unless ($abstract) { $abstract=$subject; }          $abstract=~s/ s / /gs;
  unless ($abstract) { $abstract=$title; }          $abstract=~s/\s+/ /gs;
  unless ($abstract) { $abstract=$keywords; }          my $postsubject=$subject;
           unless ($postsubject) {
              $postsubject=$keywords;
           } else {
              $postsubject.=' ('.$keywords.')';
           }
           unless ($postsubject=~/\w/) { $knockout{'nosubject_'.$rawtype}++; next; }
           unless ($abstract) { $knockout{'noabstract_'.$rawtype}++; next; }
  my $type = $rawtype;   my $type = $rawtype;
         if ($type=~/htm/) { $type='htm'; }          if ($type=~/htm/) { $type='htm'; }
   
Line 204  foreach my $metadata (@loncapa) { Line 212  foreach my $metadata (@loncapa) {
  # Domain means restricted to a particular LON-CAPA domain   # Domain means restricted to a particular LON-CAPA domain
  # Defaults mean access open to any registered LON-CAPA user   # Defaults mean access open to any registered LON-CAPA user
  # Private means open only to author of material   # Private means open only to author of material
  if ( $copyright eq 'private') { $knockout{'private_'.$rawtype}++; next; }           unless ($copyright eq 'public') { $knockout{'notpublic_'.$rawtype}++; next; }
  if ( $copyright eq 'domain') { $knockout{'domain_'.$rawtype}++; next; }  
         if ( $copyright eq 'custom') { $knockout{'custom_'.$rawtype}++; next; }  
  my $platform = "5";     # HTML Browser (not specified but construed from metadata)   my $platform = "5";     # HTML Browser (not specified but construed from metadata)
 #  #
 # We actually do this  # We actually do this
Line 231  foreach my $metadata (@loncapa) { Line 237  foreach my $metadata (@loncapa) {
                               http://www.openarchives.org/OAI/2.0/oai_dc.xsd"                                http://www.openarchives.org/OAI/2.0/oai_dc.xsd"
 >  >
     <title>$title</title>      <title>$title</title>
     <creator>$author_fname $author_lname</creator>      <creator>$author</creator>
     <identifier>$resourceurl</identifier>      <identifier>$resourceurl</identifier>
     <subject>$keywords</subject>      <subject>$postsubject</subject>
     <subject>$subject</subject>  
     <language>$primary_language</language>      <language>$primary_language</language>
     <description>$abstract</description>      <description>$abstract</description>
     <date>$rev_year-$rev_month-$rev_day</date>      <date>$rev_year-$rev_month-$rev_day</date>
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>