--- trunk/lib/WebPAC/Input/XML.pm	2007/11/04 13:26:06	989
+++ trunk/lib/WebPAC/Input/XML.pm	2007/11/04 13:47:02	992
@@ -64,7 +64,7 @@
 
 	my $arg = {@_};
 
-warn "#### arg = ",dump( $arg );
+#warn "#### arg = ",dump( $arg );
 
 	my $log = $self->_get_logger();
 
@@ -130,22 +130,22 @@
 	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;