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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-05-04 09:47:35 -0400 (Mon, 04 May 2009)
New Revision: 13047

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
adding internal identifier to holdings-namespaced location, status and circlib elements in holdings xml

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-04 13:46:46 UTC (rev 13046)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-04 13:47:35 UTC (rev 13047)
@@ -1790,9 +1790,9 @@
     $xml .= 'id="tag:open-ils.org:asset-copy/' . $self->obj->id . '" ';
     $xml .= 'barcode="' . $self->escape( $self->obj->barcode  ) . '">';
 
-    $xml .= '<status>' . $self->escape( $self->obj->status->name  ) . '</status>';
-    $xml .= '<location>' . $self->escape( $self->obj->location->name  ) . '</location>';
-    $xml .= '<circlib>' . $self->escape( $self->obj->circ_lib->name  ) . '</circlib>';
+    $xml .= '<status ident="' . $self->obj->status->id . '">' . $self->escape( $self->obj->status->name  ) . '</status>';
+    $xml .= '<location ident="' . $self->obj->location->id . '">' . $self->escape( $self->obj->location->name  ) . '</location>';
+    $xml .= '<circlib ident="' . $self->obj->circ_lib->id . '">' . $self->escape( $self->obj->circ_lib->name  ) . '</circlib>';
 
     $xml .= '<circ_lib xmlns="http://open-ils.org/spec/actors/v1" ';
     $xml .= 'id="tag:open-ils.org:actor-org_unit/' . $self->obj->circ_lib->id . '" ';