cvsuser 05/10/12 06:59:36
Modified: App-Repository/lib/App/Repository DBI.pm
Log:
added the _do() method so you won't do $db->{dbh}->do() or
$db->{dbh}->selectall_arrayref()
Revision Changes Path
1.28 +32 -2 p5ee/App-Repository/lib/App/Repository/DBI.pm
Index: DBI.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- DBI.pm 9 Aug 2005 18:52:25 -0000 1.27
+++ DBI.pm 12 Oct 2005 13:59:36 -0000 1.28
@@ -2053,6 +2053,36 @@
$retval;
}
+sub _do {
+ &App::sub_entry if ($App::trace);
+ my ($self, $sql) = @_;
+ $self->{error} = "";
+ $self->{sql} = $sql;
+ my $dbh = $self->{dbh};
+ my $retval = 0;
+
+ my $debug_sql = $self->{context}{options}{debug_sql};
+ if ($debug_sql) {
+ print "DEBUG_SQL: _do()\n";
+ print $sql;
+ }
+ if (defined $dbh) {
+ if ($sql =~ /^select/i) {
+ $retval = $dbh->selectall_arrayref($sql);
+ }
+ else {
+ $retval = $dbh->do($sql);
+ }
+ }
+ if ($debug_sql) {
+ print "DEBUG_SQL: retval [$retval] $DBI::errstr\n";
+ print "\n";
+ }
+
+ &App::sub_exit($retval) if ($App::trace);
+ $retval;
+}
+
######################################################################
# METADATA REPOSITORY METHODS (implements methods from App::Repository)
######################################################################
