/[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 9 by dpavlin, Sat Jul 16 16:48:35 2005 UTC revision 10 by dpavlin, Sat Jul 16 20:35:30 2005 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use base qw/WebPAC::Common/;  use base qw/WebPAC::Common/;
7    use Storable;
8    
9  =head1 NAME  =head1 NAME
10    
# Line 231  sub data_structure { Line 232  sub data_structure {
232                          $log->debug("format: $format");                          $log->debug("format: $format");
233    
234                          my @v;                          my @v;
235                          if ($format =~ /$LOOKUP_REGEX/o) {                          # FIXME this is a cludge!
236                            if ($format =~ /$WebPAC::Lookup::LOOKUP_REGEX/o) {
237                                  @v = $self->fill_in_to_arr($rec,$format);                                  @v = $self->fill_in_to_arr($rec,$format);
238                          } else {                          } else {
239                                  @v = $self->parse_to_arr($rec,$format);                                  @v = $self->parse_to_arr($rec,$format);

Legend:
Removed from v.9  
changed lines
  Added in v.10

  ViewVC Help
Powered by ViewVC 1.1.26