--- trunk/lib/WebPAC/Input/MARC.pm 2006/11/03 20:41:12 773 +++ trunk/lib/WebPAC/Input/MARC.pm 2006/11/03 20:56:21 774 @@ -12,11 +12,11 @@ =head1 VERSION -Version 0.07 +Version 0.08 =cut -our $VERSION = '0.07'; +our $VERSION = '0.08'; =head1 SYNOPSIS @@ -88,17 +88,17 @@ } } -=head2 dump_rec +=head2 dump_ascii -Return dump of record with ID C<$mfn> from database +Return ASCII dump of record with ID C<$mfn> from database - my $rec = $self->fetch_rec( $mfn ); + print $self->dump_ascii( $mfn ); } =cut -sub dump_rec { +sub dump_ascii { my $self = shift; my $mfn = shift;