/[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 1015 by dpavlin, Thu Nov 8 17:19:50 2007 UTC revision 1016 by dpavlin, Thu Nov 8 17:29:03 2007 UTC
# Line 984  sub marc_template { Line 984  sub marc_template {
984                          my ( $sf, $nr ) = @$sf;                          my ( $sf, $nr ) = @$sf;
985                          my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr";                          my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr";
986                          warn "++ $sf/$nr |$v|\n";                          warn "++ $sf/$nr |$v|\n";
987                          push @$m, [ $sf, $v ];                          push @$m, ( $sf, $v );
988                  }                  }
989    
990                  warn "#### >>>> created marc: ", dump( $m );                  warn "#### >>>> created marc: ", dump( $m );
# Line 993  sub marc_template { Line 993  sub marc_template {
993          }          }
994    
995          warn "### marc_template produced: ",dump( @marc_out );          warn "### marc_template produced: ",dump( @marc_out );
996          return @marc_out;  
997            foreach my $marc ( @marc_out ) {
998                    warn "+++ ",dump( $marc );
999                    push @{ $marc_record->[ $marc_record_offset ] }, $marc;
1000            }
1001  }  }
1002    
1003  =head2 marc_count  =head2 marc_count

Legend:
Removed from v.1015  
changed lines
  Added in v.1016

  ViewVC Help
Powered by ViewVC 1.1.26