From: ivan Date: Fri, 18 Jul 2008 22:32:50 +0000 (+0000) Subject: random cleanup from 1.9 X-Git-Tag: freeside_1_7_4rc1~232 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d71918f4d623dc9936b9be65d2a4f0e6ade756c7;p=freeside.git random cleanup from 1.9 --- 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";