diff options
| author | ivan <ivan> | 2001-11-05 11:55:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-11-05 11:55:04 +0000 |
| commit | 170cab94330f9a6c5daaee7072010b589f3ab64d (patch) | |
| tree | bfe3cb06f9996f3f13b895dcaf052bfc94c59276 /FS | |
| parent | fd72d2af8120195f96826eb044e217dbfcaee1c7 (diff) | |
better error messages for eval'ed setup/recur expressions
remove debugging warn output
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 4c4fe8702..8911023cc 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -886,8 +886,8 @@ sub bill { $setup = eval $setup_prog; unless ( defined($setup) ) { $dbh->rollback if $oldAutoCommit; - return "Error reval-ing part_pkg->setup pkgpart ". $part_pkg->pkgpart. - ": $@"; + return "Error eval-ing part_pkg->setup pkgpart ". $part_pkg->pkgpart. + "(expression $setup_prog): $@"; } $cust_pkg->setfield('setup',$time); $cust_pkg_mod_flag=1; @@ -915,8 +915,8 @@ sub bill { $recur = eval $recur_prog; unless ( defined($recur) ) { $dbh->rollback if $oldAutoCommit; - return "Error reval-ing part_pkg->recur pkgpart ". - $part_pkg->pkgpart. ": $@"; + return "Error eval-ing part_pkg->recur pkgpart ". $part_pkg->pkgpart. + "(expression $recur_prog): $@"; } #change this bit to use Date::Manip? CAREFUL with timezones (see # mailing list archive) @@ -1022,7 +1022,7 @@ sub bill { my $invnum = $cust_bill->invnum; my $cust_bill_pkg; foreach $cust_bill_pkg ( @cust_bill_pkg ) { - warn $cust_bill_pkg->invnum($invnum); + #warn $cust_bill_pkg->invnum($invnum); $error = $cust_bill_pkg->insert; if ( $error ) { $dbh->rollback if $oldAutoCommit; @@ -1875,7 +1875,7 @@ sub append_fuzzyfiles { =head1 VERSION -$Id: cust_main.pm,v 1.45 2001-11-03 17:49:52 ivan Exp $ +$Id: cust_main.pm,v 1.46 2001-11-05 11:55:04 ivan Exp $ =head1 BUGS |