X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fcust_main.pm;h=8496684e31c6730a89acb2b507701ec0d55b1c89;hb=c8ea63ee0f94ff3d3ac3917e41b0e38fb53b3fd4;hp=e4fc3db342fece4802dace8cba124bfcbae1caf6;hpb=ecd90a9dae71b452430d23ae39c1fdb3863a876f;p=freeside.git diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index e4fc3db34..8496684e3 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2501,15 +2501,7 @@ sub cancel_pkgs { $lopt{'reason_otaker'} = $cpr->otaker; } else { warn "no reason found when canceling package ".$_->pkgnum."\n"; - # we're not actually required to pass a reason to cust_pkg::cancel, - # but if we're getting to this point, something has gone awry. - $null_reason ||= FS::reason->new_or_existing( - reason => 'unknown reason', - type => 'Cancel Reason', - class => 'C', - ); - $lopt{'reason'} = $null_reason->reasonnum; - $lopt{'reason_otaker'} = $FS::CurrentUser::CurrentUser->username; + $lopt{'reason'} = ''; } } my $error = $_->cancel(%lopt);