--- nsdl/nsdlloncapaorg/harvester.pl 2003/07/29 15:10:31 1.5 +++ nsdl/nsdlloncapaorg/harvester.pl 2003/10/21 15:58:26 1.7 @@ -44,7 +44,10 @@ my @servers = ( 'zappa.ags.udel.edu', 'loncapa.gwu.edu', 'neptune.physics.ndsu.nodak.edu', -'capa1.uwsp.edu'); +'capa1.uwsp.edu', +'natasha.it.fit.edu', +'loncapa.Mines.EDU', +'loncapa.chm.nau.edu'); foreach (@servers) { my $url='http://'.$_.'/cgi-bin/metadata_harvest.pl'; @@ -114,7 +117,9 @@ foreach my $metadata (@loncapa) { my $version = $tkline[5]; my $notes = $tkline[6]; my $abstract = $tkline[7]; - next if ($abstract eq ''); + unless ($abstract) { $abstract=$subject; } + unless ($abstract) { $abstract=$title; } + unless ($abstract) { $abstract=$keywords; } my $type = $tkline[8]; my $learning_resource_type; if ( $type eq 'problem' ) { @@ -171,6 +176,7 @@ foreach my $metadata (@loncapa) { # Defaults mean access open to any registered LON-CAPA user # Private means open only to author of material next if ( $copyright eq 'private'); + next if ( $copyright eq 'domain'); my $platform = "5"; # HTML Browser (not specified but construed from metadata) # # Create path