/[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 968 by dpavlin, Fri Nov 2 13:59:10 2007 UTC revision 981 by dpavlin, Sat Nov 3 13:33:21 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(
98                    $path,
99    #               ForceArray => 1,
100    #               ForceContent => 1,
101    #               KeepRoot => 1,
102    #               SuppressEmpty => 1, # '' undef
103    
104            ) || $log->logdie("can't open $path: $!");
105    
106            warn "### fetch_rec( $mfn ) => $path => xml is ",dump($xml);
107    
108            # add mfn
109            $xml->{'000'} = [ $mfn ];
110    
111            return $xml;
112  }  }
113    
114    
Legend:
Removed from v.968  
changed lines
  Added in v.981
  ViewVC Help
Powered by ViewVC 1.1.26