/[cvs]/nfo/perl/libs/Data/Storage/Handler/Files.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/Files.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by joko, Tue May 13 16:34:26 2003 UTC revision 1.7 by joko, Fri Jun 6 03:57:25 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    ------------------------------------------------------------------------  ##    ------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.7  2003/06/06 03:57:25  joko
6    ##    disabled debugging output
7    ##
8  ##    Revision 1.6  2003/05/13 16:34:26  joko  ##    Revision 1.6  2003/05/13 16:34:26  joko
9  ##    don't use GUID when building xpq filter  ##    don't use GUID when building xpq filter
10  ##  ##
# Line 82  sub sendQuery { Line 85  sub sendQuery {
85    my $self = shift;    my $self = shift;
86    my $query = shift;    my $query = shift;
87        
88    print __PACKAGE__ . ": sendQuery(" . Dumper($query) . ")";    #print STDERR __PACKAGE__ . ": sendQuery(" . Dumper($query) . ")", "\n";
89        
90      my $file = $query->{node};      my $file = $query->{node};
91      # NEW [2003-04-23]: DataItem compatibility      # NEW [2003-04-23]: DataItem compatibility
# Line 129  sub sendQuery { Line 132  sub sendQuery {
132      # --- from OEF::YAA::Jobs ---      # --- from OEF::YAA::Jobs ---
133    
134      # V1 - direct mode      # V1 - direct mode
135      print "subtree: " . Dumper($subtree);      #print STDERR "subtree: " . Dumper($subtree);
136      #return $subtree;      #return $subtree;
137    
138      #print Dumper($query);      #print Dumper($query);
139      print "xpq: $xpq", "\n";      #print STDERR "file: $file", "\n";
140        #print STDERR "xpq: $xpq", "\n";
141        
142      # V2 - wrapped via a result object providing a more generic api to e.g. iterate through items      # V2 - wrapped via a result object providing a more generic api to e.g. iterate through items
143      my $result = Data::Storage::Result::Hash->new( RESULTHANDLE => $subtree );      my $result = Data::Storage::Result::Hash->new( RESULTHANDLE => $subtree );
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed