rt/share/html/Admin/Groups/index.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
   6 %#                                          <sales@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 <& /Admin/Elements/Header, Title => $title &>
  49 <& /Elements/Tabs &>
  50 <h1><% $caption %></h1>
  51
  52 <form method="post" action="<% RT->Config->Get('WebPath') %>/Admin/Groups/index.html">
  53 <input type="hidden" name="GroupField" value="Name" />
  54 <input type="hidden" name="GroupOp" value="LIKE" />
  55 <&|/l&>Go to group</&>
  56 <input type="text" name="GroupString" value="" data-autocomplete="Groups" id="autocomplete-GroupString" />
  57 <script type="text/javascript">
  58 jQuery(function(){
  59     // Jump directly to the page if a group is chosen
  60     jQuery("#autocomplete-GroupString").on("autocompleteselect", function( event, ui ) {
  61         document.location = RT.Config.WebPath + "/Admin/Groups/Modify.html?id=" + ui.item.id;
  62     });
  63 });
  64 </script>
  65 </form>
  66
  67 <form method="post" action="<% RT->Config->Get('WebPath') %>/Admin/Groups/index.html">
  68 <&|/l&>Find groups whose</&> <& /Elements/SelectGroups &><br />
  69 <input type="checkbox" class="checkbox" id="FindDisabledGroups" name="FindDisabledGroups" value="1" <% $FindDisabledGroups? 'checked="checked"': '' |n %> />
  70 <label for="FindDisabledGroups"><&|/l&>Include disabled groups in listing.</&></label><br />
  71 <div align="right"><input type="submit" class="button" value="<&|/l&>Go!</&>" /></div>
  72 </form>
  73
  74 % unless ( $Groups->Count ) {
  75 <em><&|/l&>No groups matching search criteria found.</&></em>
  76 % } else {
  77 <p><&|/l&>Select a group</&>:</p>
  78
  79 <& /Elements/CollectionList,
  80     OrderBy => 'Name',
  81     Order => 'ASC',
  82     Rows  => $Rows,
  83     %ARGS,
  84     Format => $Format,
  85     Collection => $Groups,
  86     AllowSorting => 1,
  87     PassArguments => [qw(Format Rows Page Order OrderBy GroupString GroupOp GroupField FindDisabledGroups)],
  88 &>
  89 % }
  90
  91 <%INIT>
  92 my $Groups = RT::Groups->new($session{'CurrentUser'});
  93 $Groups->LimitToUserDefinedGroups();
  94 my $title = loc('Select a group');
  95 my $caption;
  96
  97 if ($FindDisabledGroups) {
  98     $Groups->FindAllRows();
  99 }
 100
 101 if (length $GroupString) {
 102     $caption = loc("Groups matching search criteria");
 103     if ($GroupField =~ /^CustomField-(\d+)/) {
 104         $Groups->LimitCustomField(
 105             CUSTOMFIELD => $1,
 106             OPERATOR => $GroupOp,
 107             VALUE => $GroupString,
 108         );
 109     }
 110     else {
 111         $Groups->Limit(
 112             FIELD => $GroupField,
 113             OPERATOR => $GroupOp,
 114             VALUE => $GroupString,
 115         );
 116     }
 117     RT::Interface::Web::Redirect(RT->Config->Get('WebURL')."Admin/Groups/Modify.html?id=".$Groups->First->id)
 118           if $Groups->Count == 1 and $Groups->First;
 119 }
 120 else {
 121     $caption = loc("User-defined groups");
 122 }
 123
 124 $Format ||= RT->Config->Get('AdminSearchResultFormat')->{'Groups'};
 125 my $Rows = RT->Config->Get('AdminSearchResultRows')->{'Groups'} || 50;
 126
 127 </%INIT>
 128 <%ARGS>
 129 $Format => undef,
 130
 131 $GroupString => '' unless defined $GroupString
 132 $GroupOp => '='
 133 $GroupField => 'Name'
 134 $FindDisabledGroups => 0
 135 </%ARGS>