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

- Fixed a typo in testEnvironment.pl version number for DBD::mysql

Browse source 
- Fixed a Recurring Payments processing bug: illegal division by zero
This commit is contained in:
JT Smith 2007-01-29 22:57:55 +00:00
parent b92da4afab
commit b806163b1e
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/7.x.x.txt
View file

@ -2,6 +2,8 @@
- fix: Can't add task to project management (perlDreamer Consulting, LLC) - fix: Can't add task to project management (perlDreamer Consulting, LLC)
- fix: Error in RSS Feed (perlDreamer Consulting, LLC) - fix: Error in RSS Feed (perlDreamer Consulting, LLC)
- rfe: Asset->get should return a copy of the properties hashref - rfe: Asset->get should return a copy of the properties hashref
- Fixed a typo in testEnvironment.pl version number for DBD::mysql
- Fixed a Recurring Payments processing bug: illegal division by zero
7.3.8 7.3.8

7
lib/WebGUI/Workflow/Activity/ProcessRecurringPayments.pm
View file

@ -94,7 +94,12 @@ sub execute {
my $item = WebGUI::Commerce::Item->new($self->session, $itemProperties->{itemId}, $itemProperties->{itemType}); my $item = WebGUI::Commerce::Item->new($self->session, $itemProperties->{itemId}, $itemProperties->{itemType});
my $time = time; my $time = time;
$time -= $transaction->get('initDate'); $time -= $transaction->get('initDate');
my $term = int($time / $self->getDuration($item->duration)) + 1; my $itemDuration = $self->getDuration($item->duration);
unless ($itemDuration) {
push(@fatal, $itemProperties->{itemId}." has no duration");
next;
}
my $term = int($time / $itemDuration) + 1;
if ($term > $transaction->lastPayedTerm) { if ($term > $transaction->lastPayedTerm) {
my $payment = WebGUI::Commerce::Payment->load($self->session, $transaction->gateway); my $payment = WebGUI::Commerce::Payment->load($self->session, $transaction->gateway);
$transaction->gatewayId; $transaction->gatewayId;

2
sbin/testEnvironment.pl
View file

@ -77,7 +77,7 @@ checkModule("Pod::Coverage",0.17,2);
checkModule("Text::Balanced",1.95,1); checkModule("Text::Balanced",1.95,1);
checkModule("Digest::MD5",2.20); checkModule("Digest::MD5",2.20);
checkModule("DBI",1.40); checkModule("DBI",1.40);
checkModule("DBD::mysql",3.002); checkModule("DBD::mysql",3.0002);
checkModule("HTML::Parser",3.36); checkModule("HTML::Parser",3.36);
checkModule("Archive::Tar",1.05); checkModule("Archive::Tar",1.05);
checkModule("Archive::Zip",1.16); checkModule("Archive::Zip",1.16);