[open-ils-commits] r9190 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Reporter

[svn at svn.open-ils.org]

Author: miker
Date: 2008-04-02 12:44:45 -0400 (Wed, 02 Apr 2008)
New Revision: 9190

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
Log:
get the text value, then transform

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm	2008-04-02 12:57:00 UTC (rev 9189)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm	2008-04-02 16:44:45 UTC (rev 9190)
@@ -949,12 +949,14 @@
 		$sql .= " NOT BETWEEN ". join(" AND ", map { $_->toSQL } @$val);
 	} elsif (lc($op) eq 'like') {
 		$val = $$val[0] if (ref($val) eq 'ARRAY');
+		$val = $val->toSQL;
 		$val =~ s/^'(.*)'$/$1/o;
 		$val =~ s/%/\\\\%/o;
 		$val =~ s/_/\\\\_/o;
 		$sql .= " LIKE '\%$val\%'";
 	} elsif (lc($op) eq 'ilike') {
 		$val = $$val[0] if (ref($val) eq 'ARRAY');
+		$val = $val->toSQL;
 		$val =~ s/^'(.*)'$/$1/o;
 		$val =~ s/%/\\\\%/o;
 		$val =~ s/_/\\\\_/o;