fixed parsing for science direct html with more than one <a href=> per one <tr>

[webpac] / isis_sf.pm

diff --git a/isis_sf.pm b/isis_sf.pm
index 2a9951f..49b2081 100644 (file)
--- a/isis_sf.pm
+++ b/isis_sf.pm
@@ -13,13 +13,14 @@ sub isis_sf {
        my $out;
 
        if ($row->{$isis_id}->[$i]) {
-               my $sf = OpenIsis::subfields($row->{$isis_id}->[$i]);
-               if (! defined $subfield || length($subfield) == 0) {
+               if (! $subfield) {
                        # subfield list undef, empty or no defined subfields for this record
                        my $all_sf = $row->{$isis_id}->[$i];
                        $all_sf =~ s/\^./ /g;   # nuke definitions
                        return $all_sf; 
-               } elsif ($sf->{$subfield}) {
+               }
+               my $sf = OpenIsis::subfields($row->{$isis_id}->[$i]);
+               if ($sf->{$subfield}) {
                        return $sf->{$subfield};
                }
        }