Log Message:
-----------
Fixes bug in add where blank values were being turned into 0 by mysql for columns of type integer. The analogous change was previously made to put. This bug showed up when renumbering problems in ProblemSetDetail (e.g., renumbering) when a set was already assigned to users.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/DB/Schema:
SQL.pm
Revision Data
-------------
Index: SQL.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/DB/Schema/SQL.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -Llib/WeBWorK/DB/Schema/SQL.pm -Llib/WeBWorK/DB/Schema/SQL.pm -u -r1.28 -r1.29
--- lib/WeBWorK/DB/Schema/SQL.pm
+++ lib/WeBWorK/DB/Schema/SQL.pm
@@ -177,6 +177,7 @@
my @realFieldnames = $self->{record}->FIELDS();
my @fieldvalues = map { $Record->$_() } @realFieldnames;
+ @fieldvalues = map { (defined($_) and $_ eq "") ? undef : $_ } @fieldvalues;
my $stmt = "INSERT INTO `$sqlTable` ($fieldnames) VALUES ($marks)";
$self->debug("SQL-add: $stmt\n");
|
