Removed Brenda Harmon test code.

git-svn-id: file:///svn-source/pmgr/branches/yafr_20090716@399 97e9348a-65ac-dc4b-aefc-98561f571b83

scripts/sitelink2pmgr.pl

@@ -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)},
+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',
-              } : ()),
-   )
 {
    my (undef, $effective_date, $through_date) =
       dates('payment', $row->{'PaymentDate'});