sub tag_item_list {
my($cart,$opt,$text) = @_;
#::logDebug("tag_item_list: " . ::uneval(\@_));
my $obj = {
      mv_results => $cart ? ($::Carts->{$cart} ||= [] ) : $Vend::Items,
        };
return if ! $text;
#::logDebug("tag_item_list obj=" . ::uneval($obj));
#::logDebug("Vend::Items obj=" . ::uneval($Vend::Items));
$CacheInvalid = 1;
$opt->{prefix} = 'item' unless defined $opt->{prefix};
# LEGACY
list_compat($opt->{prefix}, \$text);
# END LEGACY
return labeled_list($opt, $text, $obj);
}