/[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 1039 by dpavlin, Mon Nov 12 12:13:57 2007 UTC revision 1040 by dpavlin, Mon Nov 12 12:18:55 2007 UTC
# Line 726  sub _get_marc_fields { Line 726  sub _get_marc_fields {
726  #               $a->[0] . ( $a->[3] || '' ) cmp $b->[0] . ( $b->[3] || '')  #               $a->[0] . ( $a->[3] || '' ) cmp $b->[0] . ( $b->[3] || '')
727  #       } @{ $marc_rec };  #       } @{ $marc_rec };
728    
729          @sorted_marc_record = @{ $marc_rec };   ### FIXME disable sorting          my @sorted_marc_record = @{ $marc_rec };        ### FIXME disable sorting
730                    
731          # output marc fields          # output marc fields
732          my @m;          my @m;
# Line 747  sub _get_marc_fields { Line 747  sub _get_marc_fields {
747          my $i = 0;          my $i = 0;
748          my $field;          my $field;
749    
750            warn "## created_with_marc_template = ",dump( $created_with_marc_template ) if $debug;
751    
752          foreach ( 0 .. $len ) {          foreach ( 0 .. $len ) {
753    
754                  # find next element which isn't visited                  # find next element which isn't visited
# Line 764  sub _get_marc_fields { Line 766  sub _get_marc_fields {
766                          warn "## copied marc_template created ", dump( $row ),$/ if $debug;                          warn "## copied marc_template created ", dump( $row ),$/ if $debug;
767                          next;                          next;
768                  }                  }
769    
770                  # field and subfield which is key for                  # field and subfield which is key for
771                  # marc_repeatable_subfield and u                  # marc_repeatable_subfield and u
772                  my $fsf = $row->[0] . ( $row->[3] || '' );                  my $fsf = $row->[0] . ( $row->[3] || '' );
Legend:
Removed from v.1039  
changed lines
  Added in v.1040
  ViewVC Help
Powered by ViewVC 1.1.26