7 |
use MARC::Fast; |
use MARC::Fast; |
8 |
use base qw/WebPAC::Common/; |
use base qw/WebPAC::Common/; |
9 |
use Carp qw/confess/; |
use Carp qw/confess/; |
10 |
|
use Data::Dump qw/dump/; |
11 |
|
|
12 |
=head1 NAME |
=head1 NAME |
13 |
|
|
66 |
my $row = $self->{_sth}->fetchrow_hashref; |
my $row = $self->{_sth}->fetchrow_hashref; |
67 |
|
|
68 |
if ( my $fh = $self->{_koha_fh} ) { |
if ( my $fh = $self->{_koha_fh} ) { |
69 |
my $marc = $row->{marc} || die "no marc?"; |
if ( my $marc = $row->{marc} ) { |
70 |
print $fh $marc; |
print $fh $marc; |
71 |
|
} else { |
72 |
|
warn "MFN $mfn no marc in ",dump($row); |
73 |
|
} |
74 |
} |
} |
75 |
|
|
76 |
push @{$row->{'000'}}, $mfn; |
push @{$row->{'000'}}, $mfn; |