abijah/pmgr
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed Brenda Harmon test code.

Browse Source 
git-svn-id: file:///svn-source/pmgr/branches/yafr_20090716@399 97e9348a-65ac-dc4b-aefc-98561f571b83
This commit is contained in:
abijah
2009-07-28 02:41:11 +00:00
parent b225775a91
commit 5446f6a266
1 changed files with 1 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
scripts/sitelink2pmgr.pl
View File

@@ -1036,19 +1036,6 @@ foreach $row (@{query($sdbh, $query)}) {
$row->{'ChargeAmount'} = 50
if ($row->{'ChargeID'} == 19);
# # REVISIT <AP>: 20090726
# # Temporary testing of customer credits
# $row->{'ChargeAmount'} = 49
# if ($row->{'ChargeID'} == 19);
# #next if $row->{'ChargeID'} == 3777;
# #next if $row->{'ChargeID'} == 3838;
# $row->{'ChargeAmount'} = .80
# if $row->{'ChargeID'} == 3777;
# $row->{'ChargeAmount'} = .15
# if $row->{'ChargeID'} == 3838;
# # END REVISIT <AP>: 20090726
$newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'amount'}
= $row->{'ChargeAmount'};
$newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'}
@@ -1304,28 +1291,7 @@ foreach $row (@{query($sdbh, $query)}) {
$newdb{'lookup'}{'payment'} = {};
$query = "SELECT * FROM Payments ORDER BY PaymentID";
foreach $row (@{query($sdbh, $query)},
## Special case - Fix sitelink Brenda Harmon bug
( 0 ?
{ 'PaymentDate' => '4/1/2009 05:01',
'ReceiptNum' => 10,
'PaymentType' => 2,
'PaymentID' => 99991,
'ChargeID' => 3777,
'PaymentAmount' => 1,
'Memo' => 'Utilized credit left by $1 overpayment',
} : ()),
( 0 ?
{ 'PaymentDate' => '4/1/2009 05:01',
'ReceiptNum' => 10,
'PaymentType' => 2,
'PaymentID' => 99991,
'ChargeID' => 19,
'PaymentAmount' => 1.00,
'entry_type' => 'CREDIT',
'Memo' => 'Overpayment left $1 credit',
} : ()),
)
foreach $row (@{query($sdbh, $query)})
{
my (undef, $effective_date, $through_date) =
dates('payment', $row->{'PaymentDate'});