r1618@llin: dpavlin | 2007-11-12 13:18:54 +0100

 cleanup and fixes

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1040 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize/MARC.pm b/lib/WebPAC/Normalize/MARC.pm
index 5fe3e94..a0aade3 100644 (file)
--- a/lib/WebPAC/Normalize/MARC.pm
+++ b/lib/WebPAC/Normalize/MARC.pm
@@ -726,7 +726,7 @@ sub _get_marc_fields {
 #              $a->[0] . ( $a->[3] || '' ) cmp $b->[0] . ( $b->[3] || '')
 #      } @{ $marc_rec };
 
-       @sorted_marc_record = @{ $marc_rec };   ### FIXME disable sorting
+       my @sorted_marc_record = @{ $marc_rec };        ### FIXME disable sorting
        
        # output marc fields
        my @m;
@@ -747,6 +747,8 @@ sub _get_marc_fields {
        my $i = 0;
        my $field;
 
+       warn "## created_with_marc_template = ",dump( $created_with_marc_template ) if $debug;
+
        foreach ( 0 .. $len ) {
 
                # find next element which isn't visited
@@ -764,6 +766,7 @@ sub _get_marc_fields {
                        warn "## copied marc_template created ", dump( $row ),$/ if $debug;
                        next;
                }
+
                # field and subfield which is key for
                # marc_repeatable_subfield and u
                my $fsf = $row->[0] . ( $row->[3] || '' );