added email receipt and "my purchases" page

This commit is contained in:
JT Smith 2008-05-26 20:11:10 +00:00
parent 93454e36f9
commit 74b3d3def6
10 changed files with 203 additions and 181 deletions

View file

@ -18,7 +18,7 @@ use strict;
use Tie::IxHash;
use base 'WebGUI::Asset';
use WebGUI::International;
use WebGUI::Mail::Send;
use WebGUI::Inbox;
use WebGUI::Shop::Cart;
@ -418,13 +418,13 @@ sub onCancelRecurring {
my ($self, $item) = @_;
my $session = $self->session;
my $i18n = WebGUI::International->new($session, "Shop");
my $mail = WebGUI::Mail::Send->new($session, {
my $inbox = WebGUI::Inbox->new($session);
my $message = sprintf $i18n->get('cancel recurring message','Asset_Sku'), $item->transaction->get('orderNumber'), $item->get('configuredTitle'), $item->transaction->get('username');
$inbox->addMessage({
toGroup => $self->session->setting->get('groupIdAdminCommerce'),
subject => $i18n->get('shop notice'),
message => $message,
});
my $message = sprintf $i18n->get('cancel recurring message','Asset_Sku'), $item->transaction->get('orderNumber'), $item->get('configuredTitle'), $item->transaction->get('username');
$mail->addText($message);
$mail->queue;
return undef;
}