/[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 604 by dpavlin, Sun Jul 30 14:19:54 2006 UTC revision 605 by dpavlin, Sun Jul 30 14:23:23 2006 UTC
# Line 667  sub marc_original_order { Line 667  sub marc_original_order {
667    
668          foreach my $d (@$r) {          foreach my $d (@$r) {
669    
670                    if (! defined($d->{subfields}) && ref($d->{subfields}) ne 'ARRAY') {
671                            warn "# marc_original_order($from,$to): field $from doesn't have subfields specification\n";
672                            next;
673                    }
674            
675                  my @sfs = @{ $d->{subfields} };                  my @sfs = @{ $d->{subfields} };
676    
                 die "field $from doesn't have subfields specification\n" unless(@sfs);  
677                  die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1);                  die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1);
678    
679  warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/;  warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/;

Legend:
Removed from v.604  
changed lines
  Added in v.605

  ViewVC Help
Powered by ViewVC 1.1.26