/[webpac2]/trunk/lib/WebPAC/Output/MARC.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/Output/MARC.pm

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

revision 661 by dpavlin, Mon Sep 4 16:15:07 2006 UTC revision 662 by dpavlin, Fri Sep 8 17:48:43 2006 UTC
# Line 16  WebPAC::Output::MARC - Create MARC recor Line 16  WebPAC::Output::MARC - Create MARC recor
16    
17  =head1 VERSION  =head1 VERSION
18    
19  Version 0.02  Version 0.03
20    
21  =cut  =cut
22    
23  our $VERSION = '0.02';  our $VERSION = '0.03';
24    
25  =head1 SYNOPSIS  =head1 SYNOPSIS
26    
# Line 57  sub new { Line 57  sub new {
57          if (my $path = $self->{path}) {          if (my $path = $self->{path}) {
58                  open($self->{fh}, '>', $path) ||                  open($self->{fh}, '>', $path) ||
59                          $log->logdie("can't open MARC output $path: $!");                          $log->logdie("can't open MARC output $path: $!");
60                    binmode($self->{fh}, ':utf8');
61    
62                  $log->info("Creating MARC export file $path", $self->{lint} ? ' (with lint)' : '', "\n");                  $log->info("Creating MARC export file $path", $self->{lint} ? ' (with lint)' : '', "\n");
63          } else {          } else {
# Line 150  sub add { Line 151  sub add {
151                  );                  );
152          }          }
153    
154          {          print {$self->{fh}} $marc->as_usmarc;
                 use bytes;  
                 print {$self->{fh}} $marc->as_usmarc;  
         }  
155    
156  }  }
157    
Legend:
Removed from v.661  
changed lines
  Added in v.662
  ViewVC Help
Powered by ViewVC 1.1.26