-<% header("Package $past{$method}") %>
+<% header(emt("Package $past{$method}")) %>
<SCRIPT TYPE="text/javascript">
window.top.location.reload();
</SCRIPT>
if ($method eq 'expire' || $method eq 'adjourn'){
#untaint date
$date = $cgi->param('date');
- str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
+ parse_datetime($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
$date = $1;
+ $method = ($method eq 'expire') ? 'cancel' : 'suspend';
}
my $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
-#my $otaker = $FS::CurrentUser::CurrentUser->name;
-#$otaker = $FS::CurrentUser::CurrentUser->username
-# if ($otaker eq "User, Legacy");
-
if ($reasonnum == -1) {
$reasonnum = {
'typenum' => scalar( $cgi->param('newreasonnumT') ),
};
}
-my $error;
-if ($method eq 'expire' || $method eq 'adjourn'){
- my %hash = $cust_pkg->hash;
- $hash{$method} = $date;
- my $new = new FS::cust_pkg \%hash;
- $error = $new->replace($cust_pkg, 'reason' => $reasonnum);
-} else {
- $error = $cust_pkg->$method( 'reason' => $reasonnum );
-}
+my $error = $cust_pkg->$method( 'reason' => $reasonnum, 'date' => $date );
if ($error) {
$cgi->param('error', $error);