some fleshing logic detangling

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

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index dec92ee..9c0c794 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1334,7 +1334,6 @@ sub create_record_feed {
        my $lib = uc(shift()) || '-';
        my $depth = shift;
        my $flesh = shift;
-       $flesh = 1 if (!defined($flesh));
 
        my $paging = shift;
 
@@ -1348,7 +1347,7 @@ sub create_record_feed {
 
     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;