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;
