/[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 595 by dpavlin, Mon Jul 10 10:16:11 2006 UTC revision 601 by dpavlin, Sun Jul 23 17:33:11 2006 UTC
# Line 679  sub rec2 { Line 679  sub rec2 {
679          my $f = shift;          my $f = shift;
680          return unless (defined($rec && $rec->{$f}));          return unless (defined($rec && $rec->{$f}));
681          my $sf = shift;          my $sf = shift;
682            warn "rec2($f,$sf) = ", dump( $rec->{$f} ), $/ if ($debug > 1);
683          return map {          return map {
684                  if (ref($_->{$sf}) eq 'ARRAY') {                  if (ref($_->{$sf}) eq 'ARRAY') {
685                          @{ $_->{$sf} };                          @{ $_->{$sf} };

Legend:
Removed from v.595  
changed lines
  Added in v.601

  ViewVC Help
Powered by ViewVC 1.1.26