/[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 668 by dpavlin, Mon Sep 11 14:28:56 2006 UTC revision 669 by dpavlin, Mon Sep 11 14:29:01 2006 UTC
# Line 722  above. Line 722  above.
722    
723  =head2 _pack_subfields_hash  =head2 _pack_subfields_hash
724    
725   @values = _pack_subfields_hash( $h, $include_subfields )   @subfields = _pack_subfields_hash( $h );
726     $subfields = _pack_subfields_hash( $h, 1 );
727    
728    Return each subfield value in array or pack them all together and return scalar
729    with subfields (denoted by C<^>) and values.
730    
731  =cut  =cut
732    
# Line 741  sub _pack_subfields_hash { Line 745  sub _pack_subfields_hash {
745                          my $o = shift @$sfs;                          my $o = shift @$sfs;
746                          if ($o == 0 && ref( $h->{$sf} ) ne 'ARRAY' ) {                          if ($o == 0 && ref( $h->{$sf} ) ne 'ARRAY' ) {
747                                  # single element subfields are not arrays                                  # single element subfields are not arrays
748  warn "====> $sf $o / $#$sfs ", dump( $sfs, $h->{$sf} ), "\n";  #warn "====> $sf $o / $#$sfs ", dump( $sfs, $h->{$sf} ), "\n";
749    
750                                  push @out, $h->{$sf};                                  push @out, $h->{$sf};
751                          } else {                          } else {
752  warn "====> $sf $o / $#$sfs ", dump( $sfs, $h->{$sf} ), "\n";  #warn "====> $sf $o / $#$sfs ", dump( $sfs, $h->{$sf} ), "\n";
753                                  push @out, $h->{$sf}->[$o];                                  push @out, $h->{$sf}->[$o];
754                          }                          }
755                  }                  }

Legend:
Removed from v.668  
changed lines
  Added in v.669

  ViewVC Help
Powered by ViewVC 1.1.26