--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/05/13 08:06:13	1.5
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/06/06 03:57:25	1.7
@@ -1,7 +1,13 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.5 2003/05/13 08:06:13 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
+##
 ##    Revision 1.5  2003/05/13 08:06:13  joko
 ##    filled "sub sendQuery": query xml document via XPath
 ##
@@ -79,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
@@ -103,7 +109,7 @@
       
       # map a GUID to a xml-name attribute which is searched anywhere ('*/*')
       #$xpq = '*/' . $query->{options}->{GUID} if (!$xpq && $query->{options}->{GUID});
-      $xpq = '*/*[@name="' . $query->{options}->{GUID} . '"]' if (!$xpq && $query->{options}->{GUID});
+      #$xpq = '*/*[@name="' . $query->{options}->{GUID} . '"]' if (!$xpq && $query->{options}->{GUID});
       
       $xpq = '*' if !$xpq;
       #print "xpq: $xpq", "\n";
@@ -126,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 );