--- trunk/lib/WebPAC/Input/MARC.pm 2005/12/18 23:10:02 290 +++ trunk/lib/WebPAC/Input/MARC.pm 2005/12/18 23:34:24 291 @@ -77,7 +77,7 @@ $self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn"); } else { my $row = $db->fetch($mfn); - $row->{'000'}->[0] = $mfn; + push @{$row->{'000'}}, $mfn; return $row; } }