X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FElements%2FEditLinks;h=f4b385038825aa9d4d94ceff25a9ab4e15e7f964;hb=44dd00a3ff974a17999e86e64488e996edc71e3c;hp=637762e1b7b9ebcd19a2d85545833b5b5b5870e9;hpb=63a268637b2d51a8766412617724b9436439deb6;p=freeside.git diff --git a/rt/share/html/Elements/EditLinks b/rt/share/html/Elements/EditLinks index 637762e1b..f4b385038 100755 --- a/rt/share/html/Elements/EditLinks +++ b/rt/share/html/Elements/EditLinks @@ -1,40 +1,40 @@ %# BEGIN BPS TAGGED BLOCK {{{ -%# +%# %# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC -%# -%# +%# +%# This software is Copyright (c) 1996-2019 Best Practical Solutions, LLC +%# +%# %# (Except where explicitly superseded by other copyright notices) -%# -%# +%# +%# %# LICENSE: -%# +%# %# This work is made available to you under the terms of Version 2 of %# the GNU General Public License. A copy of that license should have %# been provided with this software, but in any event can be snarfed %# from www.gnu.org. -%# +%# %# This work is distributed in the hope that it will be useful, but %# WITHOUT ANY WARRANTY; without even the implied warranty of %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU %# General Public License for more details. -%# +%# %# You should have received a copy of the GNU General Public License %# along with this program; if not, write to the Free Software %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA %# 02110-1301 or visit their web page on the internet at %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# +%# +%# %# CONTRIBUTION SUBMISSION POLICY: -%# +%# %# (The following paragraph is not intended to limit the rights granted %# to you to modify and distribute this software under the terms of %# the GNU General Public License and is only of importance to you if %# you choose to contribute your changes and enhancements to the %# community by submitting them to Best Practical Solutions, LLC.) -%# +%# %# By intentionally submitting any modifications, corrections or %# derivatives to this work, or any other work intended for use with %# Request Tracker, to Best Practical Solutions, LLC, you confirm that @@ -43,7 +43,7 @@ %# royalty-free, perpetual, license to use, copy, create derivative %# works based on those contributions, and sublicense and distribute %# those contributions and any derivatives thereof. -%# +%# %# END BPS TAGGED BLOCK }}} @@ -52,58 +52,59 @@
- + - + - + - + - + - + @@ -112,67 +113,14 @@
<&|/l&>Depends on:<& ShowRelationLabel, Object => $Object, Label => loc('Depends on'), Relation => 'DependsOn' &>: % while (my $link = $Object->DependsOn->Next) { - - <& ShowLink, URI => $link->TargetURI &>
+ +
% }
<&|/l&>Depended on by:<& ShowRelationLabel, Object => $Object, Label => loc('Depended on by'), Relation => 'DependedOnBy' &>: % while (my $link = $Object->DependedOnBy->Next) { - - <& ShowLink, URI => $link->BaseURI &>
+ +
% }
<&|/l&>Parents:<& ShowRelationLabel, Object => $Object, Label => loc('Parents'), Relation => 'Parents' &>: % while (my $link = $Object->MemberOf->Next) { - - <& ShowLink, URI => $link->TargetURI &>
+% next if $link->Target and $link->Target =~ m(^freeside://); + +
% }
<&|/l&>Children:<& ShowRelationLabel, Object => $Object, Label => loc('Children'), Relation => 'Children' &>: % while (my $link = $Object->Members->Next) { - - <& ShowLink, URI => $link->BaseURI &>
+ +
% }
<&|/l&>Refers to:<& ShowRelationLabel, Object => $Object, Label => loc('Refers to'), Relation => 'RefersTo' &>: % while (my $link = $Object->RefersTo->Next) { - - <& ShowLink, URI => $link->TargetURI &>
+ +
%}
<&|/l&>Referred to by:<& ShowRelationLabel, Object => $Object, Label => loc('Referred to by'), Relation => 'ReferredToBy' &>: % while (my $link = $Object->ReferredToBy->Next) { % # Skip reminders -% next if (UNIVERSAL::isa($link->BaseObj, 'RT::Ticket') && $link->BaseObj->Type eq 'reminder'); - - <& ShowLink, URI => $link->BaseURI &>
+% next if (UNIVERSAL::isa($link->BaseObj, 'RT::Ticket') && $link->BaseObj->__Value('Type') eq 'reminder'); + +
% }
<&|/l&>(Check box to delete)
- +

<&|/l&>New Links

-% if (ref($Object) eq 'RT::Ticket') { -<&|/l&>Enter tickets or URIs to link tickets to. Separate multiple entries with spaces. -% $m->callback( CallbackName => 'ExtraLinkInstructions' ); -
-% } elsif (ref($Object) eq 'RT::Queue') { -<&|/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.
-% } - -% if ($Merge) { - - - - -% } - - - - - - - - - - - - - - - - - - - - - - - - -% $m->callback( CallbackName => 'NewLink' ); -
<&|/l&>Merge into: <&|/l&>(only one ticket)
<&|/l&>Depends on:
<&|/l&>Depended on by:
<&|/l&>Parents:
<&|/l&>Children:
<&|/l&>Refers to:
<&|/l&>Referred to by:
+<& AddLinks, %ARGS &> - -<%INIT> -my $id; -if ($Object && $Object->Id) { - $id = $Object->Id; -} else { - $id = 'new'; -} - - <%ARGS> $Object => undef -$Merge => 0