[svn:p5ee] r12134 - p5ee/trunk/App-Repository/lib/App/Repository

[spadkins]

Author: spadkins
Date: Thu Dec  4 08:51:08 2008
New Revision: 12134

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm

Log:
get rid of debug print statements

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Thu Dec  4 08:51:08 2008
@@ -2027,7 +2027,7 @@
 
     $self->{sql} = $sql;
 #print STDERR $sql;
-print STDERR "1. lii=[$last_inserted_id] 
liirfi=[$is_last_inserted_id_returned_from_insert] 
liic=[$last_inserted_id_column]\n";
+#print STDERR "1. lii=[$last_inserted_id] 
liirfi=[$is_last_inserted_id_returned_from_insert] 
liic=[$last_inserted_id_column]\n";
     my $context = $self->{context};
     my $context_options = $context->{options};
     my $debug_sql = $context_options->{debug_sql};
@@ -2056,14 +2056,14 @@
                     }
                 }
                 $insert_sth->bind_param($i+1, $row->[$i], $sqltype ? {TYPE => 
$sqltype} : () );
-print STDERR "insert_sth->bind_param(", $i+1, ", $row->[$i], $sqltype) 
[$column]\n";
+#print STDERR "insert_sth->bind_param(", $i+1, ", $row->[$i], $sqltype) 
[$column]\n";
             }
-print STDERR "2. lii=[$last_inserted_id] 
liirfi=[$is_last_inserted_id_returned_from_insert] 
liic=[$last_inserted_id_column]\n";
+#print STDERR "2. lii=[$last_inserted_id] 
liirfi=[$is_last_inserted_id_returned_from_insert] 
liic=[$last_inserted_id_column]\n";
             if ($is_last_inserted_id_returned_from_insert) {
                 $sqltype  = $column_defs->{$last_inserted_id_column}{sqltype};
-print STDERR "insert_sth->bind_param_inout(", $#$cols+2, ", 
\$last_inserted_id, 20, $sqltype) [$last_inserted_id_column] BEFORE\n";
+#print STDERR "insert_sth->bind_param_inout(", $#$cols+2, ", 
\$last_inserted_id, 20, $sqltype) [$last_inserted_id_column] BEFORE\n";
                 $insert_sth->bind_param_inout($#$cols+2, \$last_inserted_id, 
20, $sqltype ? {TYPE => $sqltype} : () );
-print STDERR "insert_sth->bind_param_inout(", $#$cols+2, ", 
\$last_inserted_id, 20, $sqltype) [$last_inserted_id_column] AFTER\n";
+#print STDERR "insert_sth->bind_param_inout(", $#$cols+2, ", 
\$last_inserted_id, 20, $sqltype) [$last_inserted_id_column] AFTER\n";
             }
             if ($debug_sql) {
                 $timer = $self->_get_timer();