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

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

revision 1043 by dpavlin, Mon Nov 12 12:18:55 2007 UTC revision 1044 by dpavlin, Mon Nov 12 14:18:49 2007 UTC
# Line 132  sub marc_template { Line 132  sub marc_template {
132    
133          my $m;          my $m;
134    
135          foreach my $r ( @{ $rec->{ $args->{from} } } ) {          our $from_rec = $rec->{ $args->{from} };
136    
137            foreach my $r ( @$from_rec ) {
138    
139                  my $i1 = $r->{i1} || ' ';                  my $i1 = $r->{i1} || ' ';
140                  my $i2 = $r->{i2} || ' ';                  my $i2 = $r->{i2} || ' ';
# Line 143  sub marc_template { Line 145  sub marc_template {
145    
146                  warn "### r = ",dump( $r ),$/ if $debug;                  warn "### r = ",dump( $r ),$/ if $debug;
147    
148                  my ( $from_mapping, $to_mapping, $from_count, $to_count );                  my ( $from_mapping, $from_count, $to_count );
149                    our $to_mapping;
150                  foreach my $from_sf ( keys %{$r} ) {                  foreach my $from_sf ( keys %{$r} ) {
151                          # skip everything which isn't one char subfield (e.g. 'subfields')                          # skip everything which isn't one char subfield (e.g. 'subfields')
152                          next unless $from_sf =~ m/^\w$/;                          next unless $from_sf =~ m/^\w$/;
# Line 194  sub marc_template { Line 197  sub marc_template {
197                                          warn "#### fill_in( $name, r, '$pre', $sf, $nr, '$post' )\n" if $debug;                                          warn "#### fill_in( $name, r, '$pre', $sf, $nr, '$post' )\n" if $debug;
198                                          my ( $from_sf, $from_nr );                                          my ( $from_sf, $from_nr );
199                                          if ( $name eq 'marc' ) {                                          if ( $name eq 'marc' ) {
200                                                  die "no $sf/$nr in to_mapping: ",dump( $to_mapping ), " form record ",dump( $r ) unless defined $to_mapping->{$sf}->[$nr];                                                  die "no $sf/$nr in to_mapping: ",dump( $to_mapping ), "\n>>>> from record ",dump( $r ), "\n>>>> full record = ",dump( $from_rec ) unless defined $to_mapping->{$sf}->[$nr];
201                                                  ( $from_sf, $from_nr ) = @{ $to_mapping->{$sf}->[$nr] };                                                  ( $from_sf, $from_nr ) = @{ $to_mapping->{$sf}->[$nr] };
202                                          } else {                                          } else {
203                                                  ( $from_sf, $from_nr ) = ( $sf, $nr );                                                  ( $from_sf, $from_nr ) = ( $sf, $nr );
Legend:
Removed from v.1043  
changed lines
  Added in v.1044
  ViewVC Help
Powered by ViewVC 1.1.26