cvsuser 02/03/19 14:39:02
Modified: P5EEx/Blue/P5EEx/Blue Repository.pm
Log:
added a little debugging to store_row()
Revision Changes Path
1.10 +10 -1 p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- Repository.pm 1 Mar 2002 05:12:05 -0000 1.9
+++ Repository.pm 19 Mar 2002 22:39:02 -0000 1.10
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Repository.pm,v 1.9 2002/03/01 05:12:05 spadkins Exp $
+## $Id: Repository.pm,v 1.10 2002/03/19 22:39:02 spadkins Exp $
#############################################################################
package P5EEx::Blue::Repository;
@@ -1167,6 +1167,13 @@
my ($self, $table, $cols, $row, $keycolidx, $update_first) = @_;
my ($nrows);
+ $self->{context}->dbgprint(
+ "store_row($table,\n [",
+ join(",",@$cols), "],\n [",
+ join(",",@$row), "],\n [",
+ join(",",@$keycolidx), "], $update_first)")
+ if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(2));
+
$nrows = 0;
if ($update_first) {
$nrows = $self->update_row($table,$cols,$row,$keycolidx);
@@ -1182,6 +1189,8 @@
}
$self->{numrows} = $nrows;
+ $self->{context}->dbgprint("store_row() nrows=$nrows")
+ if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(2));
$nrows;
}
