rt/share/html/Admin/CustomFields/Objects.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2016 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
  51 <& /Elements/ListActions, actions => \@results &>
  52
  53 <form action="Objects.html" method="post">
  54 <input type="hidden" class="hidden" name="id" value="<% $id %>" />
  55
  56 % if ( $CF->IsGlobal ) {
  57 <h2><&|/l&>Applies to all objects</&></h2>
  58 <input type="checkbox" id="RemoveCustomField-<% $CF->id %>" name="RemoveCustomField-<% $CF->id %>" value="0" />
  59 <label for="RemoveCustomField-<% $CF->id %>"><&|/l&>check this box to remove this Custom Field from all objects and be able to choose specific objects.</&></label>
  60 % } else {
  61 <h2><&|/l&>Apply globally</&></h2>
  62
  63 <input type="checkbox" id="AddCustomField-<% $CF->id %>" name="AddCustomField-<% $CF->id %>" value="0" />
  64 <label for="AddCustomField-<% $CF->id %>"><&|/l&>check this box to apply this Custom Field to all objects.</&></label>
  65
  66 % unless ( $CF->IsOnlyGlobal ) {
  67 <h2><&|/l&>Selected objects</&></h2>
  68 <& /Elements/CollectionList,
  69     OrderBy => 'id',
  70     Order => 'ASC',
  71     %ARGS,
  72     Collection => $added,
  73     Rows => 0,
  74     Page => 1,
  75     Format        => $format,
  76     DisplayFormat => "'__CheckBox.{RemoveCustomField-". $CF->id ."}__',". $format,
  77     AllowSorting => 0,
  78     ShowEmpty    => 0,
  79     PassArguments => [
  80         qw(id Format Rows Page Order OrderBy),
  81     ],
  82 &>
  83
  84 <h2><&|/l&>Unselected objects</&></h2>
  85 <& /Elements/CollectionList,
  86     OrderBy => 'id',
  87     Order => 'ASC',
  88     %ARGS,
  89     Collection => $not_added,
  90     Rows          => $rows,
  91     Format        => $format,
  92     DisplayFormat => "'__CheckBox.{AddCustomField-". $CF->id ."}__',". $format,
  93     AllowSorting  => 1,
  94     ShowEmpty     => 0,
  95     PassArguments => [
  96         qw(id Format Rows Page Order OrderBy),
  97     ],
  98 &>
  99
 100 % }
 101
 102 % }
 103
 104 <& /Elements/Submit, Name => 'UpdateObjs' &>
 105 </form>
 106
 107 <%INIT>
 108 my $CF = RT::CustomField->new($session{'CurrentUser'});
 109 $CF->Load($id) or Abort(loc("Could not load CustomField [_1]", $id));
 110
 111 my $class = $CF->RecordClassFromLookupType;
 112 Abort(loc("Something wrong. Contact system administrator"))
 113     unless $class;
 114
 115 my (@results);
 116
 117 if ( $UpdateObjs ) {
 118     if ( defined (my $del = $ARGS{'RemoveCustomField-'.$CF->id}) ) {
 119         foreach my $id ( ref $del? (@$del) : ($del) ) {
 120             my $object = $class->new( $session{'CurrentUser'} );
 121             if ( $id ) {
 122                 $object->Load( $id );
 123                 next unless $object->id;
 124             }
 125
 126             my ($status, $msg) = $CF->RemoveFromObject( $object );
 127             push @results, $msg;
 128         }
 129     }
 130     if ( defined (my $add = $ARGS{'AddCustomField-'.$CF->id}) ) {
 131         foreach my $id ( ref $add? (@$add) : ($add) ) {
 132             my $object = $class->new( $session{'CurrentUser'} );
 133             if ( $id ) {
 134                 $object->Load( $id );
 135                 next unless $object->id;
 136             }
 137
 138             my ($status, $msg) = $CF->AddToObject( $object );
 139             push @results, $msg;
 140         }
 141     }
 142 }
 143
 144 my $added = $CF->AddedTo;
 145 my $not_added = $CF->NotAddedTo;
 146
 147 my $collection_class = ref($added);
 148 $collection_class =~ s/^RT:://;
 149
 150 my $format = RT->Config->Get('AdminSearchResultFormat')->{$collection_class}
 151     || '__id__,__Name__';
 152 my $rows = RT->Config->Get('AdminSearchResultRows')->{$collection_class} || 50;
 153
 154 my $title = loc('Modify associated objects for [_1]', $CF->Name);
 155
 156 </%INIT>
 157 <%ARGS>
 158 $id => undef
 159 $FindDisabledObjects => 0
 160 $UpdateObjs => 0
 161 </%ARGS>