[open-ils-commits] r14301 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-10-07 16:38:01 -0400 (Wed, 07 Oct 2009)
New Revision: 14301

Modified:
   branches/rel_1_6/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: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-10-07 20:26:11 UTC (rev 14300)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-10-07 20:38:01 UTC (rev 14301)
@@ -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 }) {