/[A3C]/lib/A3C/SQL.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/A3C/SQL.pm

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

revision 232 by dpavlin, Sun Jun 22 14:55:55 2008 UTC revision 233 by dpavlin, Mon Sep 1 18:44:33 2008 UTC
# Line 71  sub next { Line 71  sub next {
71          my $self = shift;          my $self = shift;
72          my $row = $self->sth->fetchrow_hashref;          my $row = $self->sth->fetchrow_hashref;
73          return unless defined $row;          return unless defined $row;
74    #       $self->log->debug( dump( $row ) );
75          return A3C::SQL::row->new( $row, $self->encoding );          return A3C::SQL::row->new( $row, $self->encoding );
76  }  }
77    
# Line 120  sub new { Line 121  sub new {
121  sub AUTOLOAD {  sub AUTOLOAD {
122          my $self = shift;          my $self = shift;
123          my $type = ref($self) or die "$self is not an object";          my $type = ref($self) or die "$self is not an object";
124          my $name = $AUTOLOAD;          my $name = lc($AUTOLOAD);       # DBI lowercase columns so we do same for accessors
125          $name =~ s/.*://;          $name =~ s/.*://;
126          my $v = $self->{$name};          my $v = $self->{$name};
127          Jifty->log->error("SQL: $name doesn't exist") unless defined $v;          Jifty->log->error("SQL: $name doesn't exist") unless defined $v;
Legend:
Removed from v.232  
changed lines
  Added in v.233
  ViewVC Help
Powered by ViewVC 1.1.26