cleanup and fixes
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1040
07558da8-63fa-0310-ba24-
9fe276d99e06
# $a->[0] . ( $a->[3] || '' ) cmp $b->[0] . ( $b->[3] || '')
# } @{ $marc_rec };
# $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;
# output marc fields
my @m;
+ warn "## created_with_marc_template = ",dump( $created_with_marc_template ) if $debug;
+
foreach ( 0 .. $len ) {
# find next element which isn't visited
foreach ( 0 .. $len ) {
# find next element which isn't visited
warn "## copied marc_template created ", dump( $row ),$/ if $debug;
next;
}
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] || '' );
# field and subfield which is key for
# marc_repeatable_subfield and u
my $fsf = $row->[0] . ( $row->[3] || '' );