--- trunk/marc_sf.pm 2004/12/31 04:22:49 619 +++ trunk/marc_sf.pm 2005/01/01 18:16:21 620 @@ -10,9 +10,12 @@ my $i = shift @_ || 0; - my $rec = $main::cache->{marc_record} || die '$cache->{marc_record} is undefined!'; - - my @out = $marc->getvalue({record=>$rec,field=>$f,subfield=>$s}); + my @out; + if ($s) { + @out = $marc->subfield($f,$s); + } else { + @out = $marc->field($f)->as_string() if ($marc->field($f)); + } return $out[$i] if (@out && $out[$i]); }