/[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 969 by dpavlin, Fri Nov 2 13:59:10 2007 UTC revision 970 by dpavlin, Fri Nov 2 14:29:11 2007 UTC
# Line 92  sub fetch_rec { Line 92  sub fetch_rec {
92    
93          my $path = $self->{_files}->[ $mfn - 1 ] || return;          my $path = $self->{_files}->[ $mfn - 1 ] || return;
94    
95          warn "### fetch_rec( $mfn ) = $path";          my $log = $self->_get_logger();
96    
97            my $xml = XMLin( $path, ForceArray => 1 ) || $log->logdie("can't open $path: $!");
98    
99            warn "### fetch_rec( $mfn ) => $path => xml is ",dump($xml);
100    
101            # add mfn
102            $xml->{'000'} = [ $mfn ];
103    
104            return $xml;
105  }  }
106    
107    
Legend:
Removed from v.969  
changed lines
  Added in v.970
  ViewVC Help
Powered by ViewVC 1.1.26