[LON-CAPA-cvs] cvs: modules /raeburn/register register.pm

[raeburn]

raeburn		Wed Mar 21 18:40:02 2007 EDT

  Modified files:              
    /modules/raeburn/register	register.pm 
  Log:
  Remove debugging lines.
  
  
Index: modules/raeburn/register/register.pm
diff -u modules/raeburn/register/register.pm:1.9 modules/raeburn/register/register.pm:1.10
--- modules/raeburn/register/register.pm:1.9	Wed Mar 21 18:17:29 2007
+++ modules/raeburn/register/register.pm	Wed Mar 21 18:40:00 2007
@@ -1440,7 +1440,6 @@
                     if (ref($credtrans{$iid}) eq 'HASH') {
                         my $remaining = -1 *$credtrans{$iid}{'quantity'};
                         my $moneyback = -1 * $credtrans{$iid}{'amount'};
-                        print STDERR "$iid -- remaining = $remaining, moneyback = $moneyback\n";
                         my $sth = $dbh->prepare("SELECT wid,quantity,amount FROM transactions WHERE (iid = '$iid' AND pid = '$curr_pid' AND status = 'payment') ORDER BY wid");
                         $sth->execute();
                         while ((my ($oldwid,$quantity,$amount) = $sth->fetchrow_array) && ($remaining > 0)) {
@@ -1460,11 +1459,9 @@
                 }
                 foreach my $wid (sort(keys(%refund))) {
                     my $newbal = $dbh->selectrow_array("SELECT amount FROM webcredit WHERE wid = '$wid'");
-                    print STDERR "refund for $wid, startbal = $newbal\n"; 
                     if (ref($refund{$wid}) eq 'HASH') {
                         foreach my $iid (keys(%{$refund{$wid}})) {
                             $newbal += $refund{$wid}{$iid};
-                            print STDERR "Balance changed by $refund{$wid}{$iid}\n";
                         }
                         $dbh->do("UPDATE webcredit SET modified=NOW(),state='C',amount='$newbal' WHERE wid='$wid'");
                     }