--- trunk/lib/WebPAC/Input/MARC.pm 2005/12/20 00:03:04 307 +++ trunk/lib/WebPAC/Input/MARC.pm 2005/12/20 19:01:27 309 @@ -11,11 +11,11 @@ =head1 VERSION -Version 0.02 +Version 0.03 =cut -our $VERSION = '0.02'; +our $VERSION = '0.03'; =head1 SYNOPSIS @@ -73,7 +73,7 @@ if ($mfn > $self->{size}) { $self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn"); } else { - my $row = $db->fetch($mfn); + my $row = $db->to_hash($mfn); push @{$row->{'000'}}, $mfn; return $row; }