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

[spadkins]

Author: spadkins
Date: Thu Dec  4 08:46:15 2008
New Revision: 12133

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

Log:
bind_param_inout() requires a $maxlen

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:46:15 2008
@@ -2027,8 +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};
@@ -2057,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, $sqltype) [$last_inserted_id_column] BEFORE\n";
-                $insert_sth->bind_param_inout($#$cols+2, \$last_inserted_id, 
$sqltype ? {TYPE => $sqltype} : () );
-#print STDERR "insert_sth->bind_param_inout(", $#$cols+2, ", 
\$last_inserted_id, $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] 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";
             }
             if ($debug_sql) {
                 $timer = $self->_get_timer();