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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-05-04 09:46:46 -0400 (Mon, 04 May 2009)
New Revision: 13046

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
adding holdings to fleshed atom feeds

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-05-04 13:08:02 UTC (rev 13045)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2009-05-04 13:46:46 UTC (rev 13046)
@@ -1234,7 +1234,7 @@
 		next unless $node;
 
 		$xml = '';
-		if ($lib && $type eq 'marcxml' &&  $flesh) {
+		if ($lib && ($type eq 'marcxml' || $type eq 'atom') &&  $flesh) {
 			my $r = $supercat->request( "open-ils.supercat.$search.holdings_xml.retrieve", $rec, $lib );
 			while ( !$r->complete ) {
 				$xml .= join('', map {$_->content} $r->recv);