httemplate/misc/timeworked.html

   1 <% include('/elements/header.html', $title, '' ) %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM NAME="timeworked_form" ACTION="<% popurl(1) %>process/timeworked.html" METHOD=POST>
   6
   7 <TABLE CELLSPACING="2" CELLPADDING="2" RULES="groups" FRAME="hsides">
   8
   9   <THEAD>
  10     <TR>
  11       <TH COLSPAN="2">Ticket</TH>
  12       <TH>Hours</TH>
  13       <TH COLSPAN="2">Customer</TH>
  14       <TH>Multiplier</TH>
  15     </TR>
  16   </THEAD>
  17
  18   <TBODY>
  19
  20 %   foreach my $tr_id ( keys %ticketmap ) {
  21 %     my (@customers) = @{$customers{$ticketmap{$tr_id}}};
  22 %     next unless @customers;
  23 %     my $default_multiplier = sprintf("%.2f", 1/@customers);
  24 %     my ($custnum, $name) = split(':', pop @customers, 2);
  25 %     my $link = $p. 'rt/Ticket/Display.html?id='. $ticketmap{$tr_id}.
  26 %                    '#txn-'. $tr_id;
  27 %     my $clink = $p. 'view/cust_main.cgi?'. $custnum;
  28
  29       <TR>
  30         <TD><a href="<% $link %>"><% $ticketmap{$tr_id} %></a></TD>
  31         <TD><a href="<% $link %>"><% $ticket{$ticketmap{$tr_id}} |h %></a></TD>
  32
  33 %       my $seconds = 0;
  34 %       if ( $cgi->param("seconds$tr_id") =~ /^(\d+)$/ ) {
  35 %         $seconds = $1;
  36 %       }
  37
  38         <TD><% sprintf("%0.2f", $seconds/3600) %></TD>
  39         <TD ALIGN="right"><a href="<% $clink %>"><% $custnum %></a></TD>
  40         <TD ALIGN="right"><a href="<% $clink %>"><% $name %></a></TD>
  41         <TD>
  42           <INPUT TYPE="hidden" NAME="transactionid<%$tr_id%>" VALUE="1" >
  43           <INPUT TYPE="hidden" NAME="seconds<%$tr_id%>" VALUE="<% $seconds %>" >
  44
  45 %         my $multiplier = $default_multiplier;
  46 %         my $mult_paramname = "multiplier${tr_id}_$custnum";
  47 %         if ( $cgi->param($mult_paramname) =~ /^\s*([\d\.]+)\s*$/ ) {
  48 %           $multiplier = $1;
  49 %         }
  50
  51           <INPUT TYPE="text" NAME="<% $mult_paramname %>" SIZE="5" VALUE="<% $multiplier %>" >
  52         </TD>
  53       </TR>
  54
  55 %     foreach ( @customers ) {
  56 %       ($custnum, $name) = split(':', $_, 2);
  57 %       $clink = $p. 'view/cust_main.cgi?'. $custnum;
  58
  59         <TR>
  60           <TD ALIGN="right" COLSPAN="4" ><a href="<% $clink %>"><% $custnum %></a></TD>
  61           <TD ALIGN="right"><a href="<% $clink %>"><% $name %></a></TD>
  62           <TD>
  63
  64 %           $multiplier = $default_multiplier;
  65 %           $mult_paramname = "multiplier${tr_id}_$custnum";
  66 %           if ( $cgi->param($mult_paramname) =~ /^\s*([\d\.]+)\s*$/ ) {
  67 %             $multiplier = $1;
  68 %           }
  69
  70             <INPUT TYPE="text" NAME="<% $mult_paramname %>" SIZE="5" VALUE="<% $multiplier %>" >
  71
  72           </TD>
  73
  74         </TR>
  75
  76 %     }
  77 %   }
  78
  79   </TBODY>
  80
  81 </TABLE>
  82
  83 <BR>
  84
  85 <INPUT TYPE="hidden" NAME="begin" VALUE="<% $cgi->param('begin') |h %>">
  86 <INPUT TYPE="hidden" NAME="end"   VALUE="<% $cgi->param('end')   |h %>">
  87
  88 <INPUT TYPE="submit" NAME="submit" VALUE="<% $title %>">
  89 </FORM>
  90
  91 <% include('/elements/footer.html') %>
  92
  93 <%init>
  94
  95 die "access denied"
  96   unless $FS::CurrentUser::CurrentUser->access_right('Time queue');
  97
  98 my(%ticketmap, %ticket, %customers);
  99 my $title = 'Assign Time Worked';
 100 tie %ticketmap, 'Tie::IxHash';
 101
 102 my $CurrentUser = RT::CurrentUser->new();
 103 $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username);
 104
 105 foreach my $id ( map { /^transactionid(\d+)$/; $1; }
 106                      grep /^transactionid\d+$/, $cgi->param) {
 107   my $transaction = new RT::Transaction($CurrentUser);
 108   $transaction->Load($id);
 109   $ticketmap{$id} = $transaction->ObjectId;
 110   unless(exists($ticket{$ticketmap{$id}})) {
 111     my $ticket = new RT::Ticket($CurrentUser);
 112     $ticket->Load($ticketmap{$id});
 113     $ticket{$ticketmap{$id}} = $ticket->Subject;
 114     $customers{$ticketmap{$id}} =
 115                             [ map  { $_->Resolver->AsString }
 116                               grep { $_->Resolver->{'fstable'} eq 'cust_main' }
 117                               grep { $_->Scheme eq 'freeside' }
 118                               map  { $_->TargetURI }
 119                                 @{ $ticket->_Links('Base')->ItemsArrayRef }
 120                             ];
 121
 122   }
 123 }
 124
 125 </%init>
 126