[comment]
ui_template: Yes
ui_template_name: leftright
ui_template_layout: LEFTRIGHT_TOP, UI_CONTENT, LEFTRIGHT_BOTTOM
ui_template_description: Page with top/left/right areas.
page_title:
description: Page title
page_banner:
description: Page banner
help: Defaults to page title
members_only:
options: 1=Yes,0=No*
widget: radio
description: Members only
component_before:
options: =none, specials=Specials, random=Random items, upsell_horiz_2=Two upsell items, upsell_horiz_3=Three upsell items
widget: select
description: Component before content
component_after:
options: =none, specials=Specials, random=Random items, upsell_horiz_2=Two upsell items, upsell_horiz_3=Three upsell items
widget: select
description: Component after content
bgcolor:
options: #FFFFFF=White,pink=Pink
widget: select
description: Background color
[/comment]
[set page_banner][item-description][/set]
[set bgcolor]#FFFFFF[/set]
[set component_before][/set]
[set component_after]upsell_horiz_2[/set]
[set members_only]0[/set]
[set page_title]__COMPANY__ -- [item-description][/set]
__LEFTRIGHT_TOP__
[set cross_sale][item-field category][/set]
[set upsell][item-data merchandising upsell_to][/set]
 |
[item-field category] |
 |
[if-item-field image] [/if-item-field] |
|
|
[item-field comment]
[if-item-data merchandising others_bought]
[perl tables=products]
my $hash = [item-data merchandising others_bought];
my @ary = sort { $hash->{$b} <=> $hash->{$a} } keys %$hash;
return '' unless @ary;
my %in_basket;
splice(@ary, 3);
for(@{$Carts->{main}}) {
$in_basket{$_->{code}} = 1;
}
@ary = grep ! $in_basket{$_}, @ary;
return '' unless @ary;
my $out = <<'EOF';
Customers who bought this item also bought: |
EOF
for(@ary) {
my $desc = tag_data( 'products', 'description', $_);
$out .= <$desc
EOF
}
return $out . ' | ';
[/perl]
[/if-item-data]
|
|
__LEFTRIGHT_BOTTOM__