"Fossies" - the Fresh Open Source Software Archive

Member "RT-Extension-Assets-1.05/html/Admin/Assets/Catalogs/index.html" (15 Oct 2014, 4372 Bytes) of package /linux/misc/RT-Extension-Assets-1.05.tar.gz:


The requested HTML page contains a <FORM> tag that is unusable on "Fossies" in "automatic" (rendered) mode so that page is shown as HTML source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 %# BEGIN BPS TAGGED BLOCK {{{
    2 %#
    3 %# COPYRIGHT:
    4 %#
    5 %# This software is Copyright (c) 1996-2014 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 => loc("Admin Catalogs") &>
   49 <& /Elements/Tabs &>
   50 
   51 <h1><% $caption %></h1>
   52 <p><&|/l&>Select a catalog</&>:</p>
   53 % unless ( $catalogs->Count ) {
   54 <em><&|/l&>No catalogs matching search criteria found.</&></em>
   55 % } else {
   56 <& /Elements/CollectionList,
   57     OrderBy => 'Name',
   58     Order => 'ASC',
   59     %ARGS,
   60     Format => $Format,
   61     Collection => $catalogs,
   62     AllowSorting => 1,
   63     PassArguments => [qw(
   64         Rows Page Order OrderBy FindDisabled String Op Field
   65     )],
   66 &>
   67 % }
   68 <form method="post" action="<% RT->Config->Get('WebPath') %>/Admin/Assets/Catalogs/index.html">
   69 % foreach my $field( qw(Rows Page Order OrderBy) ) {
   70 %     next unless defined $ARGS{ $field } && length $ARGS{ $field };
   71 <input type="hidden" name="<% $field %>" value="<% $ARGS{ $field } %>" />
   72 % }
   73 
   74 <select name="Field">
   75 % foreach my $col (qw(id Name Description Lifecycle)) {
   76 <option <% $Field eq $col ? 'selected="selected"' : '' |n %> value="<% $col %>"><% loc($col) %></option>
   77 % }
   78 </select>
   79 <& /Elements/SelectMatch, Name => 'Op', Default => $Op &>
   80 <input size="20" name="String" value="<% $String %>" />
   81 <br />
   82 
   83 <input type="checkbox" class="checkbox" id="FindDisabled" name="FindDisabled" value="1" <% $FindDisabled ? 'checked="checked"': '' |n%> />
   84 <label for="FindDisabled"><&|/l&>Include disabled catalogs in listing.</&></label>
   85 <div align="right"><input type="submit" class="button" value="<&|/l&>Search</&>" /></div> 
   86 </form>
   87 
   88 <%INIT>
   89 my $catalogs = RT::Catalogs->new($session{'CurrentUser'});
   90 $catalogs->FindAllRows if $FindDisabled;
   91 
   92 my ($caption);
   93 if ( defined $String && length $String ) {
   94     $caption = $FindDisabled
   95         ? loc("All catalogs matching search criteria")
   96         : loc("Enabled catalogs matching search criteria");
   97     $catalogs->Limit(
   98         FIELD    => $Field,
   99         OPERATOR => $Op,
  100         VALUE    => $String,
  101     );
  102     RT::Interface::Web::Redirect(RT->Config->Get('WebURL')."Admin/Assets/Catalogs/Modify.html?id=".$catalogs->First->id)
  103           if $catalogs->Count == 1;
  104 } else {
  105     $catalogs->UnLimit;
  106     $caption = $FindDisabled
  107         ? loc("All Catalogs")
  108         : loc("Enabled Catalogs");
  109 }
  110 
  111 my $Format = RT->Config->Get('AdminSearchResultFormat')->{'Catalogs'};
  112 </%INIT>
  113 <%ARGS>
  114 $FindDisabled => 0
  115 $Field        => 'Name'
  116 $Op           => '='
  117 $String       => ''
  118 </%ARGS>