/[cvs]/nfo/perl/libs/Data/Rap/Metadata.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Metadata.pm

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

revision 1.2 by joko, Thu Feb 20 20:04:35 2003 UTC revision 1.3 by joko, Sat Mar 29 07:13:19 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/03/29 07:13:19  joko
6    ##  better exception handling if target was not found in xml
7    ##
8  ##  Revision 1.2  2003/02/20 20:04:35  joko  ##  Revision 1.2  2003/02/20 20:04:35  joko
9  ##  renamed methods  ##  renamed methods
10  ##  - refactored xml-specific code to Data::Storage::Handler::XML  ##  - refactored xml-specific code to Data::Storage::Handler::XML
# Line 38  sub accessMetadata { Line 41  sub accessMetadata {
41  sub getTargetList {  sub getTargetList {
42    my $self = shift;    my $self = shift;
43    
44    $self->log( "Reading Job Database from XML.", 'notice' );    $self->log( "Reading database of targets (dot) from XML.", 'notice' );
45    
46    # prepare access to metadata (assure instantiated storage handle)    # prepare access to metadata (assure instantiated storage handle)
47    my $mdbe = $self->accessMetadata();    my $mdbe = $self->accessMetadata();
# Line 80  sub getTargetList { Line 83  sub getTargetList {
83  sub getTargetDetails {  sub getTargetDetails {
84    my $self = shift;    my $self = shift;
85    my $target = shift;    my $target = shift;
86      
87      # get metadata for single task from storage
88    my $mdbe = $self->accessMetadata();    my $mdbe = $self->accessMetadata();
89    $mdbe->sendQuery("*/target[\@name=\"$target\"]");    $mdbe->sendQuery("*/target[\@name=\"$target\"]");
90      
91      # FIXME: this is wrong behaviour! upper statement should return a proper
92      # result, which itself (already) has the method 'isEmpty' or similar...
93      if ($mdbe->isEmpty()) {
94        $self->log( "Target '$target' not found.", 'notice' );
95        return;
96      }
97      
98    my $tree = $mdbe->toEasyTree();    my $tree = $mdbe->toEasyTree();
99      
100      # trace
101      #print Dumper($tree);
102      #exit;
103      
104    return $tree;    return $tree;
105  }  }
106    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed