MT#5879 Cleanup debug messages.

mr3.3.1
Andreas Granig 12 years ago
parent 0baef998a6
commit ddfdb0d7a5

@ -20,9 +20,7 @@ sub get_contract_balance {
start => { '>=' => $stime },
end => { '<=' => $etime },
});
use Data::Printer; print ">>>>>>>>> get_balance\n"; p $balance;
unless($balance) {
use Data::Printer; print ">>>>>>>>> no balance\n"; p $balance;
$balance = create_contract_balance(
c => $c,
profile => $profile,
@ -31,7 +29,6 @@ sub get_contract_balance {
etime => $etime,
schema => $schema,
);
use Data::Printer; print ">>>>>>>>> created balance\n"; p $balance;
}
return $balance;
}

Loading…
Cancel
Save