[comment]
ui_template: Yes
ui_template_name: leftonly
[/comment]
[tmp page_title]__COMPANY__ -- Welcome[/tmp]
[control reset=1]
[control-set]
[component]search_box_small[/component]
[/control-set]
[control-set]
[component]cart_tiny[/component]
[/control-set]
[control-set]
[component]category_vertical[/component]
[/control-set]
[control reset=1]
[set members_only]1[/set]
[set page_banner]Saved Carts / Recurring Orders[/set]
[set page_title]__COMPANY__ -- Saved Carts / Recurring Orders[/set]
@_LEFTONLY_TOP_@
[if cgi delete_cart] [delete_cart nickname="[cgi delete_cart]"] [/if]
[if cgi retrieve_cart] [load_cart nickname="[cgi retrieve_cart]"] [/if]
[userdb function=get_cart_names hide=1]
[if value carts]
[perl]
$Scratch->{saved_carts_carts} = '';
$Scratch->{saved_carts_recurring} = '';
push(@Vend::TmpScratch,qw/saved_carts_carts saved_carts_recurring/);
foreach my $var (split("\n",$Tag->value('carts'))) {
my($name,$last_update,$type) = split(':',$var);
my $delink = $Tag->page({
href => "@@MV_PAGE@@",
form => "
delete_cart=$var
mv_action=return
",
});
my $golink = $Tag->page({
href => "ord/basket",
form => "
retrieve_cart=$var
mv_action=return
",
});
my $row = <<"END";
$delink
|
$golink$name |
$last_update |
END
if($type eq 'c') {
$Scratch->{saved_carts_carts} .= $row;
} elsif($type eq 'r') {
$Scratch->{saved_carts_recurring} .= $row;
}
}
return '';
[/perl]
[/if]
[loop list="saved_carts_carts saved_carts_recurring"]
[if explicit]
[condition]'[loop-code]' eq 'saved_carts_carts'[/condition]
[tmp this_label]Saved Carts[/tmp]
[/if]
[if explicit]
[condition]'[loop-code]' eq 'saved_carts_recurring'[/condition]
[tmp this_label]Recurring Orders[/tmp]
[/if]
[if scratch [loop-code]]
[scratch this_label]
|
|
Name
|
Modified
|
[scratch [loop-code]]
|
[else]
No [scratch this_label] entered.
[/else]
[/if]
[/loop]
@_LEFTONLY_BOTTOM_@