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

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

revision 372 by dpavlin, Sun Jan 8 21:50:34 2006 UTC revision 373 by dpavlin, Sun Jan 8 22:09:33 2006 UTC
# Line 204  sub data_structure { Line 204  sub data_structure {
204                          }                          }
205                          if (! @v) {                          if (! @v) {
206                                  $log->debug("$field <",$self->{tag},"> format: $format no values");                                  $log->debug("$field <",$self->{tag},"> format: $format no values");
207  #                               next;                                  next;
208                          } else {                          } else {
209                                  $log->debug("$field <",$self->{tag},"> format: $format values: ", join(",", @v));                                  $log->debug("$field <",$self->{tag},"> format: $format values: ", join(",", @v));
210                          }                          }
# Line 532  sub _rec_to_arr { Line 532  sub _rec_to_arr {
532          $log->logconfess("need HASH as first argument!") if ($rec !~ /HASH/o);          $log->logconfess("need HASH as first argument!") if ($rec !~ /HASH/o);
533          return if (! $format_utf8);          return if (! $format_utf8);
534    
535            $log->debug("using $code on $format_utf8");
536    
537          my $i = 0;          my $i = 0;
538          my $max = 0;          my $max = 0;
539          my @arr;          my @arr;
540          my $rec_size = {};          my $rec_size = {};
541    
542          while ($i <= $max) {          while ($i <= $max) {
543                  my $v = $self->$code($rec,$format_utf8,$i++,\$rec_size) || next;                  my @v = $self->$code($rec,$format_utf8,$i++,\$rec_size);
                 push @arr, $v;  
544                  if ($rec_size) {                  if ($rec_size) {
545                          foreach my $f (keys %{ $rec_size }) {                          foreach my $f (keys %{ $rec_size }) {
546                                  $max = $rec_size->{$f} if ($rec_size->{$f} > $max);                                  $max = $rec_size->{$f} if ($rec_size->{$f} > $max);
547                          }                          }
548                          warn "max set to $max, rec_size = ", Dumper($rec_size);                          $log->debug("max set to $max");
549                          undef $rec_size;                          undef $rec_size;
550                  }                  }
551                    if (@v) {
552                            push @arr, @v;
553                    } else {
554                            push @arr, '';
555                    }
556          }          }
557    
558          $log->debug("format '$format_utf8' returned ",--$i," elements: ", sub { join(" | ",@arr) }) if (@arr);          $log->debug("format '$format_utf8' returned ",--$i," elements: ", sub { join(" | ",@arr) }) if (@arr);

Legend:
Removed from v.372  
changed lines
  Added in v.373

  ViewVC Help
Powered by ViewVC 1.1.26