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

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

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

revision 1.1 by joko, Thu Feb 20 20:20:54 2003 UTC revision 1.2 by joko, Fri Feb 21 07:58:48 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.2  2003/02/21 07:58:48  joko
6    ##  enhanced error detection
7    ##
8  ##  Revision 1.1  2003/02/20 20:20:54  joko  ##  Revision 1.1  2003/02/20 20:20:54  joko
9  ##  + initial commit  ##  + initial commit
10  ##  ##
# Line 32  sub sendQuery { Line 35  sub sendQuery {
35    my $xpq = shift;    my $xpq = shift;
36    my $options = shift;    my $options = shift;
37    
38    $self->log( "xpq='$xpq'", 'info' );    $self->log( "xpq='$xpq'", 'debug' );
39    
40    # trace    # trace
41      #print Dumper($self);      #print Dumper($self);
# Line 40  sub sendQuery { Line 43  sub sendQuery {
43    
44    my $file = $self->{filename};    my $file = $self->{filename};
45        
46      if (!$file) {
47        $self->log("No filename given.", 'error');
48        return;
49      }
50      
51    if (! -e $file) {    if (! -e $file) {
52      $self->log("File not found: '$file'.", 'error');      $self->log("File not found: '$file'.", 'error');
53      return;      return;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed