From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 7 Oct 2009 20:38:45 +0000 (+0000)
Subject: Backport the good part of r14283 for escaping call number labels and org_unit shortna... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7f49754bbd9295459824f7da9814007eaa92db1c;p=Evergreen.git

Backport the good part of r14283 for escaping call number labels and org_unit shortnames in -full unAPI output

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@14302 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index 46ff960eba..6f7f5531b3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
@@ -1724,8 +1724,8 @@ sub as_xml {
     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 }) {