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

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

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

revision 1.9 by joko, Thu Dec 5 07:58:20 2002 UTC revision 1.10 by joko, Sun Dec 15 02:02:22 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.10  2002/12/15 02:02:22  joko
7    #  + fixed logging-message
8    #
9  #  Revision 1.9  2002/12/05 07:58:20  joko  #  Revision 1.9  2002/12/05 07:58:20  joko
10  #  + now using Tie::SecureHash as a base for the COREHANDLE  #  + now using Tie::SecureHash as a base for the COREHANDLE
11  #  + former public COREHANDLE becomes private _COREHANDLE now  #  + former public COREHANDLE becomes private _COREHANDLE now
# Line 183  sub getListUnfiltered { Line 186  sub getListUnfiltered {
186  sub sendQuery {  sub sendQuery {
187    my $self = shift;    my $self = shift;
188    my $query = shift;    my $query = shift;
189    
190      $logger->debug( __PACKAGE__ . "->sendQuery" );
191    
192    #my $sql = "SELECT cs FROM $self->{metainfo}->{$descent}->{node} WHERE $self->{metainfo}->{$descent}->{IdentProvider}->{arg}='$self->{entry}->{source}->{ident}';";    #my $sql = "SELECT cs FROM $self->{metainfo}->{$descent}->{node} WHERE $self->{metainfo}->{$descent}->{IdentProvider}->{arg}='$self->{entry}->{source}->{ident}';";
193    #my $result = $self->{metainfo}->{$descent}->{storage}->sendCommand($sql);    #my $result = $self->{metainfo}->{$descent}->{storage}->sendCommand($sql);
194    my @crits;    my @crits;
# Line 202  sub sendQuery { Line 208  sub sendQuery {
208  sub eraseAll {  sub eraseAll {
209    my $self = shift;    my $self = shift;
210    my $classname = shift;    my $classname = shift;
211      $logger->debug( __PACKAGE__ . "->eraseAll" );
212    my $sql = "DELETE FROM $classname";    my $sql = "DELETE FROM $classname";
213    $self->sendCommand($sql);    $self->sendCommand($sql);
214  }  }
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed