--- 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/25 22:56:11	1.8
@@ -1,7 +1,13 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.6 2003/05/13 16:34:26 joko Exp $
+##    $Id: Files.pm,v 1.8 2003/06/25 22:56:11 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Files.pm,v $
+##    Revision 1.8  2003/06/25 22:56:11  joko
+##    dummy "sub getCOREHANDLE"
+##
+##    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
 ##
@@ -40,9 +46,9 @@
 sub getMetaInfo {
   my $self = shift;
   $logger->debug( __PACKAGE__ . "->getMetaInfo()"  );
-  return;
+  #return;
   return {
-    'disconnectMethod' => 'disconnect',
+    'disconnectMethod' => 'abc',
   };
 }
 
@@ -52,6 +58,9 @@
   #$self->{COREHANDLE} = 1;
 }
 
+#sub disconnect { }
+sub getCOREHANDLE { }
+
 sub getChildNodes {
   my $self = shift;
   #my @nodes;
@@ -82,7 +91,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 +138,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 );