r866@llin: dpavlin | 2006-08-25 12:32:28 +0200

 finish marc_original_order and remove warning

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 2956604..5d74f7f 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -683,12 +683,13 @@ sub marc_original_order {
 
                die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1);
 
-warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/;
+               warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/ if ($debug > 2);
 
                my $m = [ $to, $i1, $i2 ];
 
                while (my $sf = shift @sfs) {
-warn "#--> sf: ",dump($sf), $/;
+
+                       warn "#--> sf: ",dump($sf), $/ if ($debug > 2);
                        my $offset = shift @sfs;
                        die "corrupted sufields specification for field $from\n" unless defined($offset);
 
@@ -709,8 +710,6 @@ warn "#--> sf: ",dump($sf), $/;
        }
 
        warn "## marc_record = ", dump( $marc_record ),$/ if ($debug > 1);
-
-       warn "# marc_original_order is partly implemented";
 }