--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/05/13 16:34:26	1.6
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/06/06 03:57:25	1.7
@@ -1,7 +1,10 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.6 2003/05/13 16:34:26 joko Exp $
+##    $Id: Files.pm,v 1.7 2003/06/06 03:57:25 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Files.pm,v $
+##    Revision 1.7  2003/06/06 03:57:25  joko
+##    disabled debugging output
+##
 ##    Revision 1.6  2003/05/13 16:34:26  joko
 ##    don't use GUID when building xpq filter
 ##
@@ -82,7 +85,7 @@
   my $self = shift;
   my $query = shift;
   
-  print __PACKAGE__ . ": sendQuery(" . Dumper($query) . ")";
+  #print STDERR __PACKAGE__ . ": sendQuery(" . Dumper($query) . ")", "\n";
   
     my $file = $query->{node};
     # NEW [2003-04-23]: DataItem compatibility
@@ -129,11 +132,12 @@
     # --- from OEF::YAA::Jobs ---
 
     # V1 - direct mode
-    print "subtree: " . Dumper($subtree);
+    #print STDERR "subtree: " . Dumper($subtree);
     #return $subtree;
 
     #print Dumper($query);
-    print "xpq: $xpq", "\n";
+    #print STDERR "file: $file", "\n";
+    #print STDERR "xpq: $xpq", "\n";
   
     # V2 - wrapped via a result object providing a more generic api to e.g. iterate through items
     my $result = Data::Storage::Result::Hash->new( RESULTHANDLE => $subtree );