From 75d754196a4c7107d86bec6980b290a5fb9c9fc1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 12 Nov 2007 12:18:55 +0000
Subject: [PATCH]  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
---
 lib/WebPAC/Normalize/MARC.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebPAC/Normalize/MARC.pm b/lib/WebPAC/Normalize/MARC.pm
index 5fe3e94..a0aade3 100644
--- 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] || '' );
-- 
2.20.1