X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=isis_sf.pm;h=49b208116568cbfd8e18c2a6909302fbe4c400f1;hb=46c4d4858331cf5f4e4bb0194123db6c0ce14b6c;hp=554bcc6efc292a3eb4dfdce69650fe3c73feb506;hpb=345a5fb8bb16876309c38b790f47cb55cc10e0eb;p=webpac

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