--- trunk/feeds/sciencedirect2.pl	2003/07/05 18:26:40	70
+++ trunk/feeds/sciencedirect2.pl	2003/07/05 23:38:08	77
@@ -69,8 +69,8 @@
 	}
 
 	foreach my $i (4, 6, 8, 10) {
+		push @{$journal->{$key}},$data[$i] || "";
 		if ($data[$i]) {
-			push @{$journal->{$key}},$data[$i];
 			$c_nr++;
 		}
 	}
@@ -105,11 +105,14 @@
 			if ($link->attr('href') =~ m{/science\?_ob=JournalURL}) {
 				my $j=nuc($link->as_text);
 				if ($journal->{$j}) {
-					print join("\n",@{$journal->{$j}});
+					my $i=0;
+					foreach my $line (@{$journal->{$j}}) {
+						print $i++,": $line\n";
+					}
 					$j_detailed++;
 				} else {
-					print $link->attr('href')."\n";
-					print $link->as_text."\n";
+					print "0: ",$link->as_text."\n";
+					print "7: http://www.sciencedirect.com",$link->attr('href')."\n";
 					$j_basic++;
 					print STDERR "can't find details for $j\n" if ($debug);
 				}