--- trunk/lib/WebPAC/Input/Koha.pm	2009/07/09 17:00:51	1231
+++ trunk/lib/WebPAC/Input/Koha.pm	2009/07/09 22:01:11	1232
@@ -7,6 +7,7 @@
 use MARC::Fast;
 use base qw/WebPAC::Common/;
 use Carp qw/confess/;
+use Data::Dump qw/dump/;
 
 =head1 NAME
 
@@ -65,8 +66,11 @@
 	my $row = $self->{_sth}->fetchrow_hashref;
 
 	if ( my $fh = $self->{_koha_fh} ) {
-		my $marc = $row->{marc} || die "no marc?";
-		print $fh $marc;
+		if ( my $marc = $row->{marc} ) {
+			print $fh $marc;
+		} else {
+			warn "MFN $mfn no marc in ",dump($row);
+		}
 	}
 
 	push @{$row->{'000'}}, $mfn;