r1523@llin: dpavlin | 2007-11-04 14:39:39 +0100

 hush all kind of debugging output

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

diff --git a/conf/log.conf b/conf/log.conf
index 6f98dba..507930e 100644 (file)
--- a/conf/log.conf
+++ b/conf/log.conf
@@ -40,7 +40,7 @@ log4perl.rootLogger=INFO, LOG, SCREEN
 #log4perl.logger.WebPAC.Input.Gutenberg=DEBUG
 #log4perl.logger.WebPAC.Input.DBF=DEBUG
 #log4perl.logger.WebPAC.Input.ISI=DEBUG
-log4perl.logger.WebPAC.Input.XML=DEBUG
+#log4perl.logger.WebPAC.Input.XML=DEBUG
 
 #log4perl.logger.WebPAC.Normalize.=DEBUG
 #log4perl.logger.WebPAC.Normalize.new=DEBUG

diff --git a/conf/mungle/perlmonks-xml.pl b/conf/mungle/perlmonks-xml.pl
index 242b476..dc28d70 100755 (executable)
--- a/conf/mungle/perlmonks-xml.pl
+++ b/conf/mungle/perlmonks-xml.pl
@@ -1,7 +1,7 @@
 # special mungle file which prepare data_structure from XML
 
 my $h = get_ds->{node};
-warn "## $0 hash to work on = ",dump( $h );
+#warn "## hash to work on = ",dump( $h );
 
 set_ds(
        Title =>        $h->{title},

diff --git a/lib/WebPAC/Input/XML.pm b/lib/WebPAC/Input/XML.pm
index a309066..e989023 100644 (file)
--- a/lib/WebPAC/Input/XML.pm
+++ b/lib/WebPAC/Input/XML.pm
@@ -64,7 +64,7 @@ sub new {
 
        my $arg = {@_};
 
-warn "#### arg = ",dump( $arg );
+#warn "#### arg = ",dump( $arg );
 
        my $log = $self->_get_logger();
 
@@ -130,22 +130,22 @@ sub fetch_rec {
        if ( my $rules = $self->{mungle_rules} ) {
 
                sub get_ds {
-                       warn "### get_ds xml = ",dump($xml);
+#                      warn "### get_ds xml = ",dump($xml);
                        return $xml;
                }
                sub set_ds {
                        my $hash = {@_};
-                       warn "### set_ds hash = ",dump($hash);
+#                      warn "### set_ds hash = ",dump($hash);
                        foreach my $f ( keys %$hash ) {
-                               warn "+++ $f ", dump( $hash->{$f} ),"\n";
+#                              warn "+++ $f ", dump( $hash->{$f} ),"\n";
                                $ds->{$f} = $hash->{$f};
                        }
-                       warn "### set_ds mungle_ds = ",dump($ds);
+#                      warn "### set_ds mungle_ds = ",dump($ds);
                }
                eval "$rules";
                $log->logdie("mungle rules $path error: $@") if $@;
 
-               warn "### set_ds after mungle_rules ds = ",dump($ds);
+#              warn "### set_ds after mungle_rules ds = ",dump($ds);
        } else {
 
                $ds = $xml;