<& /Elements/Header, Title => $ProjectObj->Subject . " / Project Overview" &> <& Elements/Tabs, Ticket => $ProjectObj, current_tab => 'Projects/Overview.html?id='.$ProjectObj->Id &> <& /Elements/ListActions, actions => \@messages &>
% my $parents = $task->MemberOf; % while (my $link = $parents->Next) { % unless ($link->TargetObj->MemberOf->First) { % } else { % } <& Elements/OverviewEntry, Root=> $link->TargetObj, Depth => 0, MaxDepth => 0, Project => $Project, %ARGS &> % } % unless ($task->MemberOf->First) { % } <& Elements/OverviewEntry, Root=> $task, Depth => 1, Project => $Project, %ARGS &> <%INIT> my (@messages); my @tix_to_update; grep { /^Ticket-(\d+)-/ && push @tix_to_update, $1 } (keys %ARGS); foreach my $ticket_id (@tix_to_update) { my $ticket= LoadTicket($ticket_id); my %ticket_args; grep { /^Ticket-$ticket_id-(.*)$/ && ($ticket_args{$1} = $ARGS{$_})} (keys %ARGS); ProcessTicketDates ( TicketObj =>$ticket, ARGSRef => \%ticket_args); ProcessTicketBasics ( TicketObj =>$ticket, ARGSRef => \%ticket_args); } my $task = LoadTicket($id); $Project = $task->Id unless ($Project); my $ProjectObj = LoadTicket($Project); if ($ARGS{'CreateTask'}) { $ARGS{'Queue'} = $task->QueueObj->id; my ($new_id, $new_msg) = CreateTicket(%ARGS); push (@messages, $new_msg); } <%ARGS> $Project => undef $AddChildOf => undef $id => undef
<&|/l&>Task <&|/l&>Owner <&|/l&>Status <&|/l&>Due <&|/l&>Priority <&|/l&>Estimate <&|/l&>Left  
Top
Up
Top