1 <% include('/elements/header.html', $title, '' ) %>
3 % if ( $cgi->param('error') ) {
4 <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
8 <FORM NAME="timeworked_form" ACTION="<% popurl(1) %>process/timeworked.html" METHOD=POST>
11 <% include("elements/customer-table.html", header => [ 'Multiplier' ],
12 fields => [ 'multiplier' ],
17 <INPUT TYPE="submit" NAME="submit" VALUE="<% $title %>">
21 for transactions/tickets:
24 % foreach ( sort { $a <=> $b } keys %ticket ) {
26 <TR><TD><% $_ %></TD><TD><% $ticket{$_} %></TD></TR>
27 <INPUT TYPE="hidden" NAME="transactionid<% $_ %>" VALUE="1" >
28 <INPUT TYPE="hidden" NAME="seconds<% $_ %>" VALUE="<% $cgi->param("seconds$_") %>" >
40 unless $FS::CurrentUser::CurrentUser->access_right('Time queue');
42 my($svcnum, %ticket, %customers, %param);
43 my $title = 'Assign Time Worked';
47 my $CurrentUser = RT::CurrentUser->new();
48 $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username);
50 foreach my $id ( map { /^transactionid(\d+)$/; $1; }
51 grep /^transactionid\d+$/, $cgi->param) {
52 my $transaction = new RT::Transaction($CurrentUser);
53 $transaction->Load($id);
54 my $ticket = new RT::Ticket($CurrentUser);
55 $ticket->Load($transaction->ObjectId);
56 $ticket{$id} = $ticket->Subject;
57 foreach my $customerURI (
58 grep { $_->Resolver->{'fstable'} eq 'cust_main' }
59 grep { $_->Scheme eq 'freeside' }
61 @{ $ticket->_Links('Base')->ItemsArrayRef }
63 $customers{$customerURI->Resolver->AsString} = 1;
68 foreach ( keys %customers ) {
69 my ($number, $name) = split(':', $_, 2);
70 $param{"custnum$row"} = $number;
71 $param{"customer$row"} = $name;
72 $param{"multiplier$row"} = sprintf("%.2f", 1/scalar(keys(%customers)));