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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-09-14 11:04:41 -0400 (Tue, 14 Sep 2010)
New Revision: 17646

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
some fleshing logic detangling

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-09-14 13:27:09 UTC (rev 17645)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-09-14 15:04:41 UTC (rev 17646)
@@ -1334,7 +1334,6 @@
 	my $lib = uc(shift()) || '-';
 	my $depth = shift;
 	my $flesh = shift;
-	$flesh = 1 if (!defined($flesh));
 
 	my $paging = shift;
 
@@ -1348,7 +1347,7 @@
 
     my $tag_prefix = sprintf("tag:open-ils.org,$year-\%0.2d-\%0.2d", $month, $day);
 
-	my $flesh_feed = parse_feed_type($type);
+	my $flesh_feed = defined($flesh) ? $flesh : $parse_feed_type($type);
 
 	$type =~ s/(-full|-uris)$//o;