% }
<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Time queue');
+
my %multipliers = map { /^custnum(\d+)$/; ($cgi->param("custnum$1") => $cgi->param("multiplier$1")); }
grep /^custnum\d+$/, $cgi->param;
-my @svc_acct_rt_transaction;
+my @acct_rt_transaction;
foreach my $transaction (
map { /^transactionid(\d+)$/; $1; } grep /^transactionid\d+$/, $cgi->param
) {
}
foreach my $customer ( grep {$seconds{$_}} keys %seconds ) {
- push @svc_acct_rt_transaction, new FS::svc_acct_rt_transaction {
+ push @acct_rt_transaction, new FS::acct_rt_transaction {
'custnum' => $customer,
'transaction_id' => $transaction,
'seconds' => $seconds{$customer},
}
-my $error = FS::svc_acct_rt_transaction->batch_insert(@svc_acct_rt_transaction);
+my $error = FS::acct_rt_transaction->batch_insert(@acct_rt_transaction);
$cgi->param('error', $error) if $error;
</%init>