oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

finished session changes to Commerce

Browse source
This commit is contained in:
Colin Kuskie 2006-01-13 23:33:48 +00:00
parent 991f4bea9f
commit 1f55efc92d
8 changed files with 46 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Commerce/Item/Subscription.pm
View file

@ -38,12 +38,13 @@ sub name {
#-------------------------------------------------------------------
sub new {
my ($class, $subscriptionId, $type, $subscription);
my ($class, $session, $subscriptionId, $type, $subscription);
$class = shift;
$session = shift;
$subscriptionId = shift;
$type = shift;
$subscription = WebGUI::Subscription->new($self->session,$subscriptionId);
$subscription = WebGUI::Subscription->new($session,$subscriptionId);
bless {_subscription => $subscription, _subscriptionId => $subscriptionId}, $class;
}

2
lib/WebGUI/Commerce/Payment/ITransact.pm
View file

@ -711,7 +711,7 @@ my %transactionData = %{$self->{_transactionParams}};
</EmailText>
<OrderItems>\n";
$items = WebGUI::Commerce::Transaction->new($transactionData{ORGID})->getItems;
$items = WebGUI::Commerce::Transaction->new($self->session, $transactionData{ORGID})->getItems;
foreach (@{$items}) {
$xml .=
" <Item>

3
lib/WebGUI/Commerce/Shipping/ByPrice.pm
View file

@ -46,7 +46,8 @@ sub init {
#-------------------------------------------------------------------
sub name {
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingByPrice');
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingByPrice');
return $i18n->get('title');
}

3
lib/WebGUI/Commerce/Shipping/ByWeight.pm
View file

@ -46,7 +46,8 @@ sub init {
#-------------------------------------------------------------------
sub name {
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingByWeight');
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingByWeight');
return $i18n->get('title');
}

3
lib/WebGUI/Commerce/Shipping/PerTransaction.pm
View file

@ -42,7 +42,8 @@ sub init {
#-------------------------------------------------------------------
sub name {
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingPerTransaction');
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingPerTransaction');
return $i18n->get('title');
}

41
lib/WebGUI/Commerce/Transaction.pm
View file

@ -264,7 +264,7 @@ sub getByGatewayId {
($transactionId) = $self->session->db->quickArray("select transactionId from transaction where gatewayId=".$self->session->db->quote($gatewayId).
" and gateway=".$self->session->db->quote($paymentGateway));
return WebGUI::Commerce::Transaction->new($transactionId) if $transactionId;
return WebGUI::Commerce::Transaction->new($self->session, $transactionId) if $transactionId;
return undef;
}
@ -331,7 +331,7 @@ sub getTransactions {
@transactionIds = $self->session->db->buildArray($sql);
foreach (@transactionIds) {
push(@transactions, WebGUI::Commerce::Transaction->new($_));
push(@transactions, WebGUI::Commerce::Transaction->new($self->session, $_));
}
return @transactions;
@ -414,25 +414,26 @@ sub new {
my ($class, $transactionId, $gatewayId, $userId, $properties, $sth, $row, @items);
$class = shift;
my $session = shift;
$transactionId = shift;
$gatewayId = shift;
$userId = shift || $self->session->user->profileField("userId");
$userId = shift || $session->user->profileField("userId");
if ($transactionId eq 'new') {
$transactionId = $self->session->id->generate;
$transactionId = $session->id->generate;
$self->session->db->write("insert into transaction ".
$session->db->write("insert into transaction ".
"(transactionId, userId, amount, gatewayId, initDate, completionDate, status) values ".
"(".$self->session->db->quote($transactionId).",".$self->session->db->quote($userId).",0,".$self->session->db->quote($gatewayId).",".$self->session->db->quote(time).",NULL,'Pending')");
"(".$session->db->quote($transactionId).",".$session->db->quote($userId).",0,".$session->db->quote($gatewayId).",".$session->db->quote(time).",NULL,'Pending')");
}
$properties = $self->session->db->quickHashRef("select * from transaction where transactionId=".$self->session->db->quote($transactionId));
$sth = $self->session->db->read("select * from transactionItem where transactionId=".$self->session->db->quote($transactionId));
$properties = $session->db->quickHashRef("select * from transaction where transactionId=".$session->db->quote($transactionId));
$sth = $session->db->read("select * from transactionItem where transactionId=".$session->db->quote($transactionId));
while ($row = $sth->hashRef) {
push(@items, $row);
}
bless {_transactionId => $transactionId, _properties => $properties, _items => \@items}, $class;
bless {_session => $session, _transactionId => $transactionId, _properties => $properties, _items => \@items}, $class;
}
#-------------------------------------------------------------------
@ -445,10 +446,11 @@ Returns a reference to an array which contains transaction objects of all pendin
sub pendingTransactions {
my (@transactionIds, @transactions);
@transactionIds = $self->session->db->buildArray("select transactionId from transaction where status = 'Pending'");
my ($session) = @_;
@transactionIds = $session->db->buildArray("select transactionId from transaction where status = 'Pending'");
foreach (@transactionIds) {
push(@transactions, WebGUI::Commerce::Transaction->new($_));
push(@transactions, WebGUI::Commerce::Transaction->new($session, $_));
}
return \@transactions;
@ -456,6 +458,19 @@ sub pendingTransactions {
#-------------------------------------------------------------------
=head2 session
Returns the cached, local session variable.
=cut
sub session {
my ($self) = @_;
return $self->{_session};
}
#-------------------------------------------------------------------
=head2 shippingCost ( [amount] )
Returns the shipping cost for this transaction. If amount is supplied the sipping cost will
@ -632,13 +647,13 @@ The ID of the user you want the transaction of.
=cut
sub transactionsByUser {
my ($self, @transactionIds, @transactions, $userId);
my (@transactionIds, @transactions);
my $self = shift;
my $userId = shift;
@transactionIds = $self->session->db->buildArray("select transactionId from transaction where userId =".$self->session->db->quote($userId));
foreach (@transactionIds) {
push (@transactions, WebGUI::Commerce::Transaction->new($_));
push (@transactions, WebGUI::Commerce::Transaction->new($self->session, $_));
}
return \@transactions;