/[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 616 by dpavlin, Wed Aug 23 14:29:43 2006 UTC revision 618 by dpavlin, Fri Aug 25 12:31:01 2006 UTC
# Line 683  sub marc_original_order { Line 683  sub marc_original_order {
683    
684                  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);
685    
686  warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/;                  warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/ if ($debug > 2);
687    
688                  my $m = [ $to, $i1, $i2 ];                  my $m = [ $to, $i1, $i2 ];
689    
690                  while (my $sf = shift @sfs) {                  while (my $sf = shift @sfs) {
691  warn "#--> sf: ",dump($sf), $/;  
692                            warn "#--> sf: ",dump($sf), $/ if ($debug > 2);
693                          my $offset = shift @sfs;                          my $offset = shift @sfs;
694                          die "corrupted sufields specification for field $from\n" unless defined($offset);                          die "corrupted sufields specification for field $from\n" unless defined($offset);
695    
# Line 709  warn "#--> sf: ",dump($sf), $/; Line 710  warn "#--> sf: ",dump($sf), $/;
710          }          }
711    
712          warn "## marc_record = ", dump( $marc_record ),$/ if ($debug > 1);          warn "## marc_record = ", dump( $marc_record ),$/ if ($debug > 1);
   
         warn "# marc_original_order is partly implemented";  
713  }  }
714    
715    
Legend:
Removed from v.616  
changed lines
  Added in v.618
  ViewVC Help
Powered by ViewVC 1.1.26