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

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

revision 983 by dpavlin, Sat Nov 3 13:33:21 2007 UTC revision 984 by dpavlin, Sun Nov 4 11:17:21 2007 UTC
# Line 72  sub new { Line 72  sub new {
72    
73          $log->info("found ", $#files + 1, " XML files in ", $arg->{path});          $log->info("found ", $#files + 1, " XML files in ", $arg->{path});
74    
75          $self->{_files} = \@files;          $self->{_files} = [ sort @files ];
76    
77          $self ? return $self : return undef;          $self ? return $self : return undef;
78  }  }
# Line 103  sub fetch_rec { Line 103  sub fetch_rec {
103    
104          ) || $log->logdie("can't open $path: $!");          ) || $log->logdie("can't open $path: $!");
105    
106          warn "### fetch_rec( $mfn ) => $path => xml is ",dump($xml);          $log->debug("fetch_rec( $mfn ) => $path => xml is ",sub { dump($xml) });
107    
108          # add mfn          # add mfn
109          $xml->{'000'} = [ $mfn ];          $xml->{'000'} = [ $mfn ];
Legend:
Removed from v.983  
changed lines
  Added in v.984
  ViewVC Help
Powered by ViewVC 1.1.26