<% include('/elements/header.html', $title, '' ) %> <% include('/elements/error.html') %>

% foreach my $tr_id ( keys %ticketmap ) { % my (@customers) = @{$customers{$ticketmap{$tr_id}}}; % next unless @customers; % my $default_multiplier = sprintf("%.2f", 1/@customers); % my ($custnum, $name) = split(':', pop @customers, 2); % my $link = $p. 'rt/Ticket/Display.html?id='. $ticketmap{$tr_id}. % '#txn-'. $tr_id; % my $clink = $p. 'view/cust_main.cgi?'. $custnum; % my $seconds = 0; % if ( $cgi->param("seconds$tr_id") =~ /^(\d+)$/ ) { % $seconds = $1; % } % foreach ( @customers ) { % ($custnum, $name) = split(':', $_, 2); % $clink = $p. 'view/cust_main.cgi?'. $custnum; % } % }

Ticket		Hours	Customer		Multiplier
<% $ticketmap{$tr_id} %>	<% $ticket{$ticketmap{$tr_id}} |h %>	<% sprintf("%0.2f", $seconds/3600) %>	<% $custnum %>	<% $name %>	% my $multiplier = $default_multiplier; % my $mult_paramname = "multiplier${tr_id}_$custnum"; % if ( $cgi->param($mult_paramname) =~ /^\s*([\d\.]+)\s*$/ ) { % $multiplier = $1; % }
<% $custnum %>				<% $name %>	% $multiplier = $default_multiplier; % $mult_paramname = "multiplier${tr_id}_$custnum"; % if ( $cgi->param($mult_paramname) =~ /^\s*([\d\.]+)\s*$/ ) { % $multiplier = $1; % }

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); my(%ticketmap, %ticket, %customers); my $title = 'Assign Time Worked'; tie %ticketmap, 'Tie::IxHash'; my $CurrentUser = RT::CurrentUser->new(); $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username); foreach my $id ( map { /^transactionid(\d+)$/; $1; } grep /^transactionid\d+$/, $cgi->param) { my $transaction = new RT::Transaction($CurrentUser); $transaction->Load($id); $ticketmap{$id} = $transaction->ObjectId; unless(exists($ticket{$ticketmap{$id}})) { my $ticket = new RT::Ticket($CurrentUser); $ticket->Load($ticketmap{$id}); $ticket{$ticketmap{$id}} = $ticket->Subject; $customers{$ticketmap{$id}} = [ map { $_->Resolver->AsString } grep { $_->Resolver->{'fstable'} eq 'cust_main' } grep { $_->Scheme eq 'freeside' } map { $_->TargetURI } @{ $ticket->_Links('Base')->ItemsArrayRef } ]; } }