<% include('/elements/header.html', $title, '' ) %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

% foreach ( keys %ticketmap ) { % my (@customers) = @{$customers{$ticketmap{$_}}}; % next unless @customers; % my $multiplier = sprintf("%.2f", 1/@customers); % my ($custnum, $name) = split(':', pop @customers, 2); % my $tr_id = $_; % foreach ( @customers ) { % ($custnum, $name) = split(':', $_, 2); % } % }

Trans	Ticket		Time	Customer		Multiplier
#	#	Subject	hours	#	Name
<% $_ %>	<% $ticketmap{$_} %>	<% $ticket{$_} %>	<% sprintf("%0.2f", $cgi->param("seconds$_")/3600) %>	<% $custnum %>	<% $name %>	" > param("multiplier${_}_$custnum") : $multiplier %>" >
<% $custnum %>					<% $name %>	param("multiplier${tr_id}_$custnum") : $multiplier %>" >

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); my(%ticketmap, %ticket, %customers); my $title = 'Assign Time Worked'; RT::Init(); 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 } ]; } }