Log Message:
-----------
Made comparison safer when turning blank fields undefined (some are already
undefined).
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.26
retrieving revision 1.27
diff -Llib/WeBWorK/DB/Schema/SQL.pm -Llib/WeBWorK/DB/Schema/SQL.pm -u -r1.26 -r1.27
--- lib/WeBWorK/DB/Schema/SQL.pm
+++ lib/WeBWorK/DB/Schema/SQL.pm
@@ -297,7 +297,7 @@
my @realFieldnames = $self->{record}->FIELDS();
my @fieldvalues = map { $Record->$_() } @realFieldnames;
- @fieldvalues = map { $_ eq "" ? undef : $_ } @fieldvalues;
+ @fieldvalues = map { (defined($_) and $_ eq "") ? undef : $_ } @fieldvalues;
my ($where, @where_args) = $self->makeWhereClause(map { $Record->$_() } @realKeynames);
|
