[Rt-commit] rt branch, 4.6/configurable-linked-queue-portlets, created. rt-4.4.3-63-gbc475a634
Maureen Mirville
maureen at bestpractical.com
Thu Aug 23 16:24:54 EDT 2018
The branch, 4.6/configurable-linked-queue-portlets has been created
at bc475a634d182a619ffabde73d25e5d74cc8a5af (commit)
- Log -----------------------------------------------------------------
commit bc475a634d182a619ffabde73d25e5d74cc8a5af
Author: Maureen E. Mirville <maureen at bestpractical.com>
Date: Tue Aug 14 23:02:03 2018 -0400
Add a configurable queue portlet to ticket display
RTIR Incident page displays links portlets by queue. Isolating
these portlets allows a user to view linked tickets based on the
queue and their relation (supports: Depends on, Depended on by,
Parents, Children, Refers to, Referred to by, All) on any ticket
display page.
diff --git a/share/html/Elements/ShowLinksCollectionList b/share/html/Elements/ShowLinksCollectionList
new file mode 100644
index 000000000..5edfd3fd2
--- /dev/null
+++ b/share/html/Elements/ShowLinksCollectionList
@@ -0,0 +1,134 @@
+%# BEGIN BPS TAGGED BLOCK {{{
+%#
+%# COPYRIGHT:
+%#
+%# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
+%# <sales at bestpractical.com>
+%#
+%# (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
+%# you are the copyright holder for those contributions and you grant
+%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
+%# 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 }}}
+<& /Elements/CollectionList,
+ %ARGS,
+ Collection => $linked_tickets,
+ DisplayFormat => ($Delete? "__CheckBox__, $Format": $Format),
+ Format => $Format,
+ Rows => $Rows,
+ ShowHeader => $ShowHeader,
+ OrderBy => $OrderBy,
+ ShowNavigation => 0,
+ AllowSorting => $AllowSorting,
+ PassArguments => $PassArguments,
+&>
+% unless( $linked_tickets->Count ) {
+% if ( $NoTicketsCaption ) {
+ <i>(<% $NoTicketsCaption %>)</i>
+% }
+% }
+<br />
+
+% if( $FullList && $Rows > 0 && $linked_tickets->CountAll >= $Rows ) {
+<a href="<% $FullList %>"><i><% loc("More... ([_1] total)", $linked_tickets->CountAll) %></i></a><br />
+% }
+
+<%INIT>
+my $linked_tickets = RT::Tickets->new( $session{'CurrentUser'} );
+my $link_types = $LinkTypes;
+my $ticket_id = $TicketObj->id;
+
+my $query = "Queue = '" . $QueueName . "' AND ". $Status;
+my ( $relation1, $relation2, $relation3, $relation4, $relation5, $relation6 ) = undef;
+my @link_relations;
+my $link_query;
+foreach my $type ( @$LinkTypes ) {
+ if ( $type =~ m/All/ ) {
+ $query = $query;
+ }
+ if ( $type =~ m/Depends on/ ) {
+ $relation1 = " DependsOn = " . $ticket_id;
+ push @link_relations, $relation1;
+ }
+ if ( $type =~ m/Depended on by/ ) {
+ $relation2 = " DependedOnBy = " . $ticket_id;
+ push @link_relations, $relation2;
+ }
+ if ( $type =~ m/Parents/ ) {
+ $relation3 = " HasMember = " . $ticket_id;
+ push @link_relations, $relation3;
+ }
+ if ( $type =~ m/Children/ ) {
+ $relation4 = " MemberOf = " . $ticket_id;
+ push @link_relations, $relation4;
+ }
+ if ( $type =~ m/Refers to/ ) {
+ $relation5 = " RefersTo = " . $ticket_id;
+ push @link_relations, $relation5;
+ }
+ if ( $type =~ m/Referred to by/ ) {
+ $relation6 = " ReferredToBy = " . $ticket_id;
+ push @link_relations, $relation6;
+ }
+}
+$link_query = join ( ' OR ', @link_relations ) if scalar @link_relations;
+$query = $query . ' AND ( ' . $link_query . ' )' if $link_query;
+
+$linked_tickets->FromSQL( $query );
+
+$Format = 'id,Subject,Status';
+
+</%INIT>
+
+<%ARGS>
+$Format => undef
+$OrderBy => 'Due'
+$Rows => 0
+$Delete => 0
+$FullList => undef
+$NoTicketsCaption => undef,
+$ShowHeader => 0
+$ShowStatusesSelector => 0
+$AllowSorting => undef
+$PassArguments => undef
+
+$Status
+$LinkTypes
+$QueueName
+$TicketObj
+</%ARGS>
diff --git a/share/html/Ticket/Elements/ShowLinkedQueues b/share/html/Ticket/Elements/ShowLinkedQueues
new file mode 100644
index 000000000..60883c053
--- /dev/null
+++ b/share/html/Ticket/Elements/ShowLinkedQueues
@@ -0,0 +1,87 @@
+%# BEGIN BPS TAGGED BLOCK {{{
+%#
+%# COPYRIGHT:
+%#
+%# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
+%# <sales at bestpractical.com>
+%#
+%# (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
+%# you are the copyright holder for those contributions and you grant
+%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
+%# 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 }}}
+<%PERL>
+foreach my $queue_name ( @$portlet_queues ) {
+ my $queue = RT::Queue->new($session{CurrentUser});
+ $queue->Load( $queue_name );
+</%PERL>
+
+<&| /Widgets/TitleBox,
+ title => $queue_name,
+&>
+<& /Elements/ShowLinksCollectionList, %ARGS,
+ TicketObj => $TicketObj,
+ LinkTypes => $link_types,
+ QueueName => $queue_name,
+ Rows => $Rows,
+ Status => "Status = '__Active__'",
+ NoTicketsCaption => loc('No active [_1] tickets', loc( $queue_name )),
+&>
+<& /Elements/ShowLinksCollectionList,
+ TicketObj => $TicketObj,
+ LinkTypes => $link_types,
+ QueueName => $queue_name,
+ Rows => $Rows,
+ Status => "Status = '__Inactive__'",
+ NoTicketsCaption => loc('No inactive [_1] tickets', loc( $queue_name )),
+&>
+</&>
+%}
+<%INIT>
+my $portlet_config = RT->Config->Get( 'LinkedQueuePortlets' ) || undef;
+return unless $portlet_config;
+my $portlet_queues = $portlet_config->{'Queues'};
+my $link_types = $portlet_config->{'Type'};
+</%INIT>
+
+
+<%ARGS>
+$TicketObj
+$OrderBy => 'Due'
+$Rows => 8
+</%ARGS>
diff --git a/share/html/Ticket/Elements/ShowSummary b/share/html/Ticket/Elements/ShowSummary
index 1233b90b9..154b86961 100644
--- a/share/html/Ticket/Elements/ShowSummary
+++ b/share/html/Ticket/Elements/ShowSummary
@@ -91,6 +91,14 @@
% $m->callback( %ARGS, CallbackName => 'AfterDates' );
% my (@extra);
% push @extra, titleright_raw => '<a href="'. RT->Config->Get('WebPath'). '/Ticket/Graphs/index.html?id='.$Ticket->id.'">'.loc('Graph').'</a>' unless RT->Config->Get('DisableGraphViz');
+
+% my $portlet_queues = RT->Config->Get( 'LinkedQueuePortlets' ) || [];
+% if ( length $portlet_queues ) {
+<& /Ticket/Elements/ShowLinkedQueues,
+ TicketObj => $Ticket,
+&>
+% }
+
<& /Ticket/Elements/ShowAssets, Ticket => $Ticket &>
% $m->callback( %ARGS, CallbackName => 'LinksExtra', extra => \@extra );
<&| /Widgets/TitleBox, title => loc('Links'),
-----------------------------------------------------------------------
More information about the rt-commit
mailing list