[open-ils-commits] r9192 - trunk/Open-ILS/src/perlmods/OpenILS/Reporter

[svn at svn.open-ils.org]

Author: miker
Date: 2008-04-02 13:07:25 -0400 (Wed, 02 Apr 2008)
New Revision: 9192

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm	2008-04-02 17:04:36 UTC (rev 9191)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm	2008-04-02 17:07:25 UTC (rev 9192)
@@ -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;