[open-ils-commits] r20339 - branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2011-04-27 08:25:51 -0400 (Wed, 27 Apr 2011)
New Revision: 20339

Modified:
   branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
Log:
One more strictly integer check for fleshing feeds in SuperCat

Missed this one in r20336. Argh.

Signed-off-by: Dan Scott <dscott at laurentian.ca>


Modified: branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm	2011-04-27 12:24:20 UTC (rev 20338)
+++ branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm	2011-04-27 12:25:51 UTC (rev 20339)
@@ -1480,7 +1480,7 @@
         next unless $node;
 
         $xml = '';
-        if ($lib && ($type eq 'marcxml' || $type eq 'atom') && ($flesh > 0 || $flesh eq 'uris')) {
+        if ($lib && ($type eq 'marcxml' || $type eq 'atom') && ($flesh > 0)) {
             my $r = $supercat->request( "open-ils.supercat.$search.holdings_xml.retrieve", $rec, $lib, $depth, $flesh_feed, $paging );
             while ( !$r->complete ) {
                 $xml .= join('', map {$_->content} $r->recv);