better _debug(2) output

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 07b8d24..67d397b 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -516,7 +516,7 @@ sub marc_compose {
                warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);
        }
 
-       warn "## marc_compose(d) ", dump( $m ),$/ if ($debug > 1);
+       warn "## marc_compose current marc = ", dump( $m ),$/ if ($debug > 1);
 
        push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2);
 }
@@ -777,6 +777,7 @@ Joins walues with some delimiter
 
 sub join_with {
        my $d = shift;
+       warn "### join_with('$d',",dump(@_),")\n" if ($debug > 2);
        my $v = join($d, grep { defined($_) && $_ ne '' } @_);
        return '' unless defined($v);
        return $v;