diff options
author | ivan <ivan> | 2008-07-18 22:32:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-07-18 22:32:50 +0000 |
commit | d71918f4d623dc9936b9be65d2a4f0e6ade756c7 (patch) | |
tree | b067be8bffb7420f5149001f1c939fc00f674b9f | |
parent | 600dc42ab67cfa6af49ed1e6546bc25011f55a3e (diff) |
random cleanup from 1.9
-rw-r--r-- | FS/FS/cust_pkg.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 298189f3b..c8d1cfed3 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -283,8 +283,6 @@ suspend is normally updated by the suspend and unsuspend methods. cancel is normally updated by the cancel method (and also the order subroutine in some cases). -Calls - =cut sub replace { @@ -319,11 +317,12 @@ sub replace { foreach my $method ( qw(adjourn expire) ) { # How many reasons? if ($options{'reason'} && $new->$method && $old->$method ne $new->$method) { - my $error = $new->insert_reason( 'reason' => $options{'reason'}, - 'date' => $new->$method, - 'action' => $method, - 'reason_otaker' => $options{'reason_otaker'}, - ); + my $error = $new->insert_reason( + 'reason' => $options{'reason'}, + 'date' => $new->$method, + 'action' => $method, + 'reason_otaker' => $options{'reason_otaker'}, + ); if ( $error ) { dbh->rollback if $oldAutoCommit; return "Error inserting cust_pkg_reason: $error"; |