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

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

revision 269 by dpavlin, Fri Dec 16 21:09:48 2005 UTC revision 505 by dpavlin, Sun May 14 22:38:01 2006 UTC
# Line 108  sub open_yaml { Line 108  sub open_yaml {
108                  $log->logconfess("need argument $req") unless $arg->{$req};                  $log->logconfess("need argument $req") unless $arg->{$req};
109          }          }
110    
111      my $path = $arg->{path};          my $path = $arg->{path};
112          $self->{tag} = $arg->{tag};          $self->{tag} = $arg->{tag};
113    
114          $log->logdie("normalisation yaml file '$path' doesn't exist!") if (! -e $path);          $log->logdie("normalisation yaml file '$path' doesn't exist!") if (! -e $path);
115    
116          $log->info("using $path normalization YAML");          $log->info("using $path normalization YAML");
117    
118      $self->{'import_xml'} = LoadFile( $path ) || $log->die("can't load $path: $!");          $self->{'import_xml'} = LoadFile( $path ) || $log->die("can't load $path: $!");
119    
120          $log->debug("import yaml is ",sub { Dumper($self->{'import_xml'}) }, $self->{lookup} ? " using lookups" : "lookups disabled");          $log->debug("import yaml is ",sub { Dumper($self->{'import_xml'}) }, $self->{lookup} ? " using lookups" : "lookups disabled");
121    
Legend:
Removed from v.269  
changed lines
  Added in v.505
  ViewVC Help
Powered by ViewVC 1.1.26