--- branches/fsb/marc_sf.pm 2004/04/17 20:57:48 307 +++ branches/fsb/marc_sf.pm 2005/01/16 18:57:15 633 @@ -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]); }