68 lines
1.7 KiB
Perl
68 lines
1.7 KiB
Perl
package WebGUI::Macro::MiniCart;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use WebGUI::Asset::Template;
|
|
use WebGUI::Shop::Cart;
|
|
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Macro::MiniCart
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Displays a miniature view of the shopping cart.
|
|
|
|
=head2 process( $session, [templateId])
|
|
|
|
Renders the macro.
|
|
|
|
=head3 templateId
|
|
|
|
The ID of a template to use other than the default.
|
|
|
|
=cut
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub process {
|
|
my ($session, $templateId) = @_;
|
|
my $cart = WebGUI::Shop::Cart->newBySession($session);
|
|
my @items = ();
|
|
my $totalItems = 0;
|
|
my $totalPrice = 0;
|
|
foreach my $item (@{$cart->getItems}) {
|
|
my $sku = $item->getSku;
|
|
my $price = $sku->getPrice;
|
|
my $quantity = $item->get('quantity');
|
|
push @items, {
|
|
name => $item->get('configuredTitle'),
|
|
quantity => $quantity,
|
|
price => $price,
|
|
url => $sku->getUrl('shop=cart;method=viewItem;itemId='.$item->getId),
|
|
};
|
|
$totalItems += $quantity;
|
|
$totalPrice += $quantity * $price;
|
|
}
|
|
my %var = (
|
|
items => \@items,
|
|
totalPrice => sprintf("%.2f",$totalPrice),
|
|
totalItems => $totalItems,
|
|
);
|
|
my $template = WebGUI::Asset::Template->new($session, $templateId || 'EBlxJpZQ9o-8VBOaGQbChA');
|
|
return $template->process(\%var);
|
|
}
|
|
|
|
1;
|
|
|
|
|