/[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 641 by dpavlin, Wed Sep 6 20:54:47 2006 UTC revision 642 by dpavlin, Wed Sep 6 21:09:30 2006 UTC
# Line 731  above. Line 731  above.
731    
732  sub _pack_subfields_hash {  sub _pack_subfields_hash {
733    
734          warn "## _pack_subfields_hash( ",dump(@_), " )\n";          warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1);
735    
736          my ($h,$include_subfields) = @_;          my ($h,$include_subfields) = @_;
737    
# Line 777  sub rec1 { Line 777  sub rec1 {
777                  my @out;                  my @out;
778                  foreach my $h ( @{ $rec->{$f} } ) {                  foreach my $h ( @{ $rec->{$f} } ) {
779                          if (ref($h) eq 'HASH') {                          if (ref($h) eq 'HASH') {
 warn "rec1 hash: ",dump($h),"\n";  
780                                  push @out, ( _pack_subfields_hash( $h ) );                                  push @out, ( _pack_subfields_hash( $h ) );
781                          } else {                          } else {
782                                  push @out, $h;                                  push @out, $h;

Legend:
Removed from v.641  
changed lines
  Added in v.642

  ViewVC Help
Powered by ViewVC 1.1.26