--- trunk/isis_sf.pm	2003/02/23 07:07:33	28
+++ trunk/isis_sf.pm	2003/02/23 07:08:54	29
@@ -8,13 +8,17 @@
 	my $isis_id = shift @_;
 	my $subfield = shift @_;
 
-	if ($row->{$isis_id}->[0]) {
-		my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
+	my $i = shift @_ || 0;
+
+	my $out;
+
+	if ($row->{$isis_id}->[$i]) {
+		my $sf = OpenIsis::subfields($row->{$isis_id}->[$i]);
 		if (! defined $subfield || length($subfield) == 0) {
 			# 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;
+			my $all_sf = $row->{$isis_id}->[$i];
+			$all_sf =~ s/\^./ /g;	# nuke definitions
+			return $all_sf;	
 		} elsif ($sf->{$subfield}) {
 			return $sf->{$subfield};
 		}