[open-ils-commits] r13113 - trunk/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-05-09 14:25:10 -0400 (Sat, 09 May 2009)
New Revision: 13113

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
Invoke escape() as a function rather than method, avoids returning 1 for any input

This is not ideal but solves the problem in the short-term.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-08 23:39:43 UTC (rev 13112)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-09 18:25:10 UTC (rev 13113)
@@ -891,12 +891,12 @@
 			next unless grep { $cp->circ_lib->id == $_ } @ou_ids;
 			next unless ( $cp->deleted eq 'f' || $cp->deleted == 0 );
 
+			# Ugly, but avoids (for now) returning 1 for each of these
+			my $cp_stat = escape($self, $cp->status->name);
+			my $cp_loc = escape($self, $cp->location->name);
+			my $cp_lib = escape($self, $cp->circ_lib->shortname);
+			my $cp_bc = escape($self, $cp->barcode);
 
-			my $cp_stat = $self->escape($cp->status->name);
-			my $cp_loc = $self->escape($cp->location->name);
-			my $cp_lib = $self->escape($cp->circ_lib->shortname);
-			my $cp_bc = $self->escape($cp->barcode);
-
 			push @{$holdings{$cn->label}{'copies'}}, { barcode => $cp_bc, status => $cp_stat, location => $cp_loc, circlib => $cp_lib};
 
 		}