cvs commit: p5ee/App-Repository/lib/App/Repository MySQL2.pm

cvsuser     04/09/02 14:02:28

  Modified:    App-Repository/lib/App/Repository MySQL2.pm
  Log:
  update tracing
  
  Revision  Changes    Path
  1.10      +12 -12    p5ee/App-Repository/lib/App/Repository/MySQL2.pm
  
  Index: MySQL2.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/MySQL2.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- MySQL2.pm	5 Aug 2003 18:26:59 -0000	1.9
  +++ MySQL2.pm	2 Sep 2004 21:02:28 -0000	1.10
  @@ -1,19 +1,19 @@
   
   ######################################################################
  -## File: $Id: MySQL2.pm,v 1.9 2003/08/05 18:26:59 spadkins Exp $
  +## File: $Id: MySQL2.pm,v 1.10 2004/09/02 21:02:28 spadkins Exp $
   ######################################################################
   
   use App::Repository::MySQL;
   
   package App::Repository::MySQL2;
  -$VERSION = do { my @r=(q$Revision: 1.9 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.10 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "App::Repository::MySQL" );
   
   use strict;
   
   sub store_rows {
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       my ($self, $table, $cols, $rows, $keycolidx, $update_first, $params) = @_;
       my ($row, $ok, $nrows, $rownum, $colnum, $column, $tabledef);
       my ($pk_column, $pk_column_idx, @insert_cols, @insert_cols_ih);
  @@ -301,20 +301,20 @@
           die "Exception in store_rows(): $errmsg";
       }
       $self->{numrows} = $nrows;
  -    &App::sub_exit($nrows) if ($App::trace_subs);
  +    &App::sub_exit($nrows) if ($App::trace);
       return($nrows);
   }
   
   sub set_row_ih {
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       my ($self, $table, $params, $cols, $row, $options) = @_;
       $self->_set_row_ih($table, $params, $cols, $row, $options);
  -    &App::sub_exit() if ($App::trace_subs);
  +    &App::sub_exit() if ($App::trace);
       return();
   }
   
   sub _set_row_ih {
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       my ($self, $table, $params, $cols, $row, $options) = @_;
   
       $options = {} if (!$options);
  @@ -507,7 +507,7 @@
   
       $self->_unlock_table($table);
       $self->{numrows} = $nrows;
  -    &App::sub_exit() if ($App::trace_subs);
  +    &App::sub_exit() if ($App::trace);
       return($nrows);
   }
   
  @@ -537,7 +537,7 @@
   ################################################################
   
   #sub _store_begin {
  -#    &App::sub_entry if ($App::trace_subs);
  +#    &App::sub_entry if ($App::trace);
   #    my ($self, $table) = @_;
   #    if (! $self->{locked}) {
   #        my ($lock_stmt, $alias, $table_ih);
  @@ -549,17 +549,17 @@
   #        $self->{dbh}->do($lock_stmt);
   #        $self->{locked} = 1;
   #    }
  -#    &App::sub_exit() if ($App::trace_subs);
  +#    &App::sub_exit() if ($App::trace);
   #}
   
   #sub _store_end {
  -#    &App::sub_entry if ($App::trace_subs);
  +#    &App::sub_entry if ($App::trace);
   #    my ($self, $table) = @_;
   #    if ($self->{locked}) {
   #        delete $self->{locked};
   #        $self->{dbh}->do("unlock tables");
   #    }
  -#    &App::sub_exit() if ($App::trace_subs);
  +#    &App::sub_exit() if ($App::trace);
   #}
   
   1;