/[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 991 by dpavlin, Sun Nov 4 13:26:06 2007 UTC revision 992 by dpavlin, Sun Nov 4 13:47:02 2007 UTC
# Line 64  sub new { Line 64  sub new {
64    
65          my $arg = {@_};          my $arg = {@_};
66    
67  warn "#### arg = ",dump( $arg );  #warn "#### arg = ",dump( $arg );
68    
69          my $log = $self->_get_logger();          my $log = $self->_get_logger();
70    
# Line 130  sub fetch_rec { Line 130  sub fetch_rec {
130          if ( my $rules = $self->{mungle_rules} ) {          if ( my $rules = $self->{mungle_rules} ) {
131    
132                  sub get_ds {                  sub get_ds {
133                          warn "### get_ds xml = ",dump($xml);  #                       warn "### get_ds xml = ",dump($xml);
134                          return $xml;                          return $xml;
135                  }                  }
136                  sub set_ds {                  sub set_ds {
137                          my $hash = {@_};                          my $hash = {@_};
138                          warn "### set_ds hash = ",dump($hash);  #                       warn "### set_ds hash = ",dump($hash);
139                          foreach my $f ( keys %$hash ) {                          foreach my $f ( keys %$hash ) {
140                                  warn "+++ $f ", dump( $hash->{$f} ),"\n";  #                               warn "+++ $f ", dump( $hash->{$f} ),"\n";
141                                  $ds->{$f} = $hash->{$f};                                  $ds->{$f} = $hash->{$f};
142                          }                          }
143                          warn "### set_ds mungle_ds = ",dump($ds);  #                       warn "### set_ds mungle_ds = ",dump($ds);
144                  }                  }
145                  eval "$rules";                  eval "$rules";
146                  $log->logdie("mungle rules $path error: $@") if $@;                  $log->logdie("mungle rules $path error: $@") if $@;
147    
148                  warn "### set_ds after mungle_rules ds = ",dump($ds);  #               warn "### set_ds after mungle_rules ds = ",dump($ds);
149          } else {          } else {
150    
151                  $ds = $xml;                  $ds = $xml;
Legend:
Removed from v.991  
changed lines
  Added in v.992
  ViewVC Help
Powered by ViewVC 1.1.26