%# $Header: /raid/cvsroot/rt/webrt/Ticket/Attic/ModifyLinks.html,v 1.1.2.4 2001/01/22 07:51:38 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent <& /Elements/Header, Title => "Link ticket ".$Ticket->Id &> <& /Ticket/Elements/Tabs, Ticket => $Ticket &> <& /Elements/ListActions, actions => \@result &>
<& /Elements/TitleBoxStart, title => 'Edit Relationships', color => "#336633"&>

Current Relationships

(Check boxes to delete)
Depends on:
    % while (my $link = $Ticket->DependsOn->Next) { % my $member = $link->TargetObj;
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>] % }
Depended on by:
    % while (my $link = $Ticket->DependedOnBy->Next) { % my $member = $link->BaseObj;
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>] % }
SuperTickets:
    % while (my $link = $Ticket->MemberOf->Next) { % my $member = $link->TargetObj;
  • <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>] % }
SubTickets:
    % while (my $link = $Ticket->Members->Next) {
  • % my $member = $link->BaseObj; <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>] % }
References:
    % while (my $link = $Ticket->RefersTo->Next) {
  • % if ($link->TargetIsLocal) { % my $member = $link->TargetObj; <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    % } else { <%$link->Target%> % } %}
Referred to by:
    % while (my $link = $Ticket->ReferredToBy->Next) {
  • % if ($link->BaseIsLocal) { % my $member = $link->BaseObj; <%$member->Id%>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]
    % } else { <%$link->Base%> %} % }

New Relationships

Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.
Depends on:
Depended on by:
Parents:
Children:
RefersTo:
Referred to by:
<& /Elements/TitleBoxEnd &> <& /Elements/Submit, color => "#336633", Caption=> 'Save changes' &>
<%INIT> my @result; unless ($id) { Abort("No ticket specified"); } my $Ticket = RT::Ticket->new($session{CurrentUser}); unless ($Ticket->Load($id)) { Abort("/Elements/Error"); } # Delete links that are gone gone gone. foreach my $arg (keys %ARGS) { if ($arg =~ /DeleteLink-(.*?)-(DependsOn|MemberOf|RefersTo)-(.*)$/) { my $base = $1; my $type = $2; my $target = $3; push @result, "Trying to delete: Base: $base Target: $target Type $type"; my ($val, $msg) = $Ticket->DeleteLink(Base => $base, Type => $type, Target => $target); push @result, $msg; } } my @linktypes = qw( DependsOn MemberOf RefersTo ); foreach my $linktype (@linktypes) { for my $luri (split (/ /,$ARGS{$Ticket->Id."-$linktype"})) { my ($val, $msg) = $Ticket->AddLink( Target => $luri, Type => $linktype); push @result, $msg; } for my $luri (split (/ /,$ARGS{"$linktype-".$Ticket->Id})) { my ($val, $msg) = $Ticket->AddLink( Base => $luri, Type => $linktype); push @result, $msg; } } my $DependsOn = $Ticket->DependsOn(); my $DependedOnBy = $Ticket->DependedOnBy(); my $MemberOf = $Ticket->MemberOf(); my $Members = $Ticket->Members(); my $RefersTo = $Ticket->RefersTo(); my $ReferredToBy = $Ticket->ReferredToBy(); <%ARGS> $id => undef