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