--- trunk/marc_sf.pm 2003/07/04 20:11:48 62 +++ trunk/marc_sf.pm 2003/07/13 13:22:50 90 @@ -10,9 +10,8 @@ my $i = shift @_ || 0; - my $out; - - return $marc->getfirstvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); + my @out = $marc->getvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); + return $out[$i] if (@out && $out[$i]); } 1;