$packet->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/;
my $pkgpart = $1;
+ $error ||= 'Please select a package' unless $pkgpart; #msgcat
my $part_pkg =
qsearchs( 'part_pkg', { 'pkgpart' => $pkgpart } )
#should check list for errors...
#$cust_main->suspend;
local $FS::svc_Common::noexport_hack = 1;
- $cust_main->cancel;
+ $cust_main->cancel('quiet'=>1);
$error = '_decline';
}
}
+1;