--- trunk/feeds/sciencedirect2.pl 2003/07/05 18:26:40 70 +++ trunk/feeds/sciencedirect2.pl 2003/07/05 22:37:30 74 @@ -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,7 +105,10 @@ 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";