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>
10 <TABLE CELLSPACING="2" CELLPADDING="2" RULES="groups" FRAME="hsides">
15 <TH COLSPAN="2">Ticket</TH>
17 <TH COLSPAN="2">Customer</TH>
32 % foreach my $tr_id ( keys %ticketmap ) {
33 % my (@customers) = @{$customers{$ticketmap{$tr_id}}};
34 % next unless @customers;
35 % my $multiplier = sprintf("%.2f", 1/@customers);
36 % my ($custnum, $name) = split(':', pop @customers, 2);
37 % my $link = $p. 'rt/Ticket/Display.html?id='. $ticketmap{$tr_id}.
42 <TD><a href="<% $link %>"><% $tr_id %></a></TD>
43 <TD><a href="<% $link %>"><% $ticketmap{$tr_id} %></a></TD>
44 <TD><a href="<% $link %>"><% $ticket{$ticketmap{$tr_id}} |h %></a></TD>
45 <TD><% sprintf("%0.2f", $cgi->param("seconds$tr_id")/3600) %></TD>
46 <TD ALIGN="right"><% $custnum %></TD>
47 <TD ALIGN="right"><% $name %></TD>
49 <INPUT TYPE="hidden" NAME="transactionid<% $tr_id %>" VALUE="1" >
50 <INPUT TYPE="hidden" NAME="seconds<% $tr_id %>" VALUE="<% $cgi->param("seconds$tr_id") %>" >
51 <INPUT TYPE="text" NAME="multiplier<% $tr_id %>_<% $custnum %>" SIZE="5" VALUE="<% $cgi->param("multiplier${_}_$custnum") ? $cgi->param("multiplier${_}_$custnum") : $multiplier %>" >
54 % foreach ( @customers ) {
55 % ($custnum, $name) = split(':', $_, 2);
58 <TD ALIGN="right" COLSPAN="5" ><% $custnum %></TD>
59 <TD ALIGN="right"><% $name %></TD>
61 <INPUT TYPE="text" NAME="multiplier<% $tr_id %>_<% $custnum %>" SIZE="5" VALUE="<% $cgi->param("multiplier${tr_id}_$custnum") ? $cgi->param("multiplier${tr_id}_$custnum") : $multiplier %>" >
70 <INPUT TYPE="submit" NAME="submit" VALUE="<% $title %>">
78 unless $FS::CurrentUser::CurrentUser->access_right('Time queue');
80 my(%ticketmap, %ticket, %customers);
81 my $title = 'Assign Time Worked';
82 tie %ticketmap, 'Tie::IxHash';
86 my $CurrentUser = RT::CurrentUser->new();
87 $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username);
89 foreach my $id ( map { /^transactionid(\d+)$/; $1; }
90 grep /^transactionid\d+$/, $cgi->param) {
91 my $transaction = new RT::Transaction($CurrentUser);
92 $transaction->Load($id);
93 $ticketmap{$id} = $transaction->ObjectId;
94 unless(exists($ticket{$ticketmap{$id}})) {
95 my $ticket = new RT::Ticket($CurrentUser);
96 $ticket->Load($ticketmap{$id});
97 $ticket{$ticketmap{$id}} = $ticket->Subject;
98 $customers{$ticketmap{$id}} =
99 [ map { $_->Resolver->AsString }
100 grep { $_->Resolver->{'fstable'} eq 'cust_main' }
101 grep { $_->Scheme eq 'freeside' }
102 map { $_->TargetURI }
103 @{ $ticket->_Links('Base')->ItemsArrayRef }