From d4d0590bef31071e8809ec046717444b95b3f30a Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 15 Oct 2005 09:11:20 +0000 Subject: import rt 3.4.4 --- rt/html/Elements/EditLinks | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to 'rt/html/Elements/EditLinks') diff --git a/rt/html/Elements/EditLinks b/rt/html/Elements/EditLinks index b66291f30..68c08dd16 100755 --- a/rt/html/Elements/EditLinks +++ b/rt/html/Elements/EditLinks @@ -1,8 +1,8 @@ -%# {{{ BEGIN BPS TAGGED BLOCK +%# BEGIN BPS TAGGED BLOCK {{{ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) @@ -42,7 +42,7 @@ %# works based on those contributions, and sublicense and distribute %# those contributions and any derivatives thereof. %# -%# }}} END BPS TAGGED BLOCK +%# END BPS TAGGED BLOCK }}} @@ -67,7 +67,7 @@ @@ -76,7 +76,7 @@ @@ -85,7 +85,7 @@ @@ -94,7 +94,7 @@ @@ -103,7 +103,7 @@ @@ -114,9 +114,12 @@
@@ -57,7 +57,7 @@ <&|/l&>Depends on: % while (my $link = $Object->DependsOn->Next) { - + <& ShowLink, URI => $link->TargetURI &>
% }
% while (my $link = $Object->DependedOnBy->Next) { % my $member = $link->BaseObj; - + <& ShowLink, URI => $link->BaseURI &>
% }
<&|/l&>Parents: % while (my $link = $Object->MemberOf->Next) { - + <& ShowLink, URI => $link->TargetURI &>
% }
<&|/l&>Children: % while (my $link = $Object->Members->Next) { - + <& ShowLink, URI => $link->BaseURI &>
% }
<&|/l&>Refers to: % while (my $link = $Object->RefersTo->Next) { - + <& ShowLink, URI => $link->TargetURI &>
%}
<&|/l&>Referred to by: % while (my $link = $Object->ReferredToBy->Next) { - + <& ShowLink, URI => $link->BaseURI &>
% }

<&|/l&>New Links

% if (ref($Object) eq 'RT::Ticket') { -<&|/l&>Enter tickets or URIs to link tickets to. Separate multiple entries with spaces.
+<&|/l&>Enter tickets or URIs to link tickets to. Separate multiple entries with spaces. +<& /Elements/Callback, _CallbackName => 'ExtraLinkInstructions' &> +
% } elsif (ref($Object) eq 'RT::Queue') { -<&|/l&>Enter queues or URIs to link queues to. Separate multiple entries with spaces.
+<&|/l&>Enter queues or URIs to link queues to. Separate multiple entries with spaces. +
% } else { <&|/l&>Enter objects or URIs to link objects to. Separate multiple entries with spaces.
% } -- cgit v1.2.1