[open-ils-commits] r14303 - tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-10-07 16:40:04 -0400 (Wed, 07 Oct 2009)
New Revision: 14303

Modified:
   tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
Backport the good part of r14283 for escaping call number labels and org_unit shortnames in -full unAPI output

Modified: tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-10-07 20:38:45 UTC (rev 14302)
+++ tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-10-07 20:40:04 UTC (rev 14303)
@@ -1724,8 +1724,8 @@
     my $xml = '<volume xmlns="http://open-ils.org/spec/holdings/v1" ';
 
     $xml .= 'id="tag:open-ils.org:asset-call_number/' . $self->obj->id . '" ';
-    $xml .= 'lib="' . $self->obj->owning_lib->shortname . '" ';
-    $xml .= 'label="' . $self->obj->label . '">';
+    $xml .= 'lib="' . $self->escape( $self->obj->owning_lib->shortname ) . '" ';
+    $xml .= 'label="' . $self->escape( $self->obj->label ) . '">';
 
     if (!$args->{no_copies}) {
         if (ref($self->obj->copies) && @{ $self->obj->copies }) {