[WWcvs] webwork-modperl: When putting entries into the mysql database, put in ""

[jj v. a. <we...@ma...>]

Log Message:
-----------
When putting entries into the mysql database, put in "" as NULL.  The
counterpart when retreiving values (that NULL is converted to "") is
already part of gets.

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.25
retrieving revision 1.26
diff -Llib/WeBWorK/DB/Schema/SQL.pm -Llib/WeBWorK/DB/Schema/SQL.pm -u -r1.25 -r1.26
--- lib/WeBWorK/DB/Schema/SQL.pm
+++ lib/WeBWorK/DB/Schema/SQL.pm
@@ -297,6 +297,7 @@
 	
 	my @realFieldnames = $self->{record}->FIELDS();
 	my @fieldvalues = map { $Record->$_() } @realFieldnames;
+	@fieldvalues = map { $_ eq "" ? undef : $_ } @fieldvalues;
 	
 	my ($where, @where_args) = $self->makeWhereClause(map { $Record->$_() } @realKeynames);