--- trunk/lib/WebPAC/Input/MARC.pm	2006/05/14 19:45:36	497
+++ trunk/lib/WebPAC/Input/MARC.pm	2006/09/07 15:01:45	652
@@ -55,6 +55,7 @@
 	my $db_size = $db->count - 1;	# FIXME
 
 	$self->{_marc_size} = $db_size;
+	$self->{_marc_db} = $db;
 
 	return ($db, $db_size);
 }
@@ -63,7 +64,7 @@
 
 Return record with ID C<$mfn> from database
 
-  my $rec = $self->fetch_rec( $db, $mfn );
+  my $rec = $self->fetch_rec( $mfn );
 
 }
 
@@ -72,12 +73,12 @@
 sub fetch_rec {
 	my $self = shift;
 
-	my ($db, $mfn) = @_;
+	my $mfn = shift;
 
 	if ($mfn > $self->{_marc_size}) {
 		$self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");
 	} else {
-		my $row = $db->to_hash($mfn);
+		my $row = $self->{_marc_db}->to_hash($mfn);
 		push @{$row->{'000'}}, $mfn;
 		return $row;
 	}