/[webpac2]/trunk/lib/WebPAC/Input/Koha.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/Koha.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1231 by dpavlin, Thu Jul 9 17:00:51 2009 UTC revision 1232 by dpavlin, Thu Jul 9 22:01:11 2009 UTC
# Line 7  use DBI; Line 7  use DBI;
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    
# Line 65  sub fetch_rec { Line 66  sub fetch_rec {
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;
Legend:
Removed from v.1231  
changed lines
  Added in v.1232
  ViewVC Help
Powered by ViewVC 1.1.26