/[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 1061 by dpavlin, Mon Nov 19 15:56:05 2007 UTC revision 1062 by dpavlin, Wed Nov 21 10:09:55 2007 UTC
# Line 223  sub marc_template { Line 223  sub marc_template {
223    
224                          foreach my $sf ( @{ $_template->{$name}->{order}->{$template} } ) {                          foreach my $sf ( @{ $_template->{$name}->{order}->{$template} } ) {
225                                  my ( $sf, $nr ) = @$sf;                                  my ( $sf, $nr ) = @$sf;
226                                  my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr";                                  my $v = $fill_in->{$sf}->[$nr];
227                                    die "can't find fill_in $sf/$nr" unless defined $v;
228                                  if ( $name eq 'isis') {                                  if ( $name eq 'isis') {
229                                          ( $sf, $nr ) = @{ $from_mapping->{$sf}->[$nr] };                                          ( $sf, $nr ) = @{ $from_mapping->{$sf}->[$nr] };
230                                  }                                  }
Legend:
Removed from v.1061  
changed lines
  Added in v.1062
  ViewVC Help
Powered by ViewVC 1.1.26