diff options
Diffstat (limited to 'rt/share/html/Admin/Scrips')
-rw-r--r-- | rt/share/html/Admin/Scrips/Create.html | 147 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/Elements/EditBasics | 74 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/Elements/EditCustomCode | 77 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/Elements/SelectTemplate | 108 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/Modify.html | 141 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/Objects.html | 172 | ||||
-rw-r--r-- | rt/share/html/Admin/Scrips/index.html | 72 |
7 files changed, 791 insertions, 0 deletions
diff --git a/rt/share/html/Admin/Scrips/Create.html b/rt/share/html/Admin/Scrips/Create.html new file mode 100644 index 0000000..7716ea8 --- /dev/null +++ b/rt/share/html/Admin/Scrips/Create.html @@ -0,0 +1,147 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<& /Admin/Elements/Header, Title => $title &> +<& /Elements/Tabs &> +<& /Elements/ListActions, actions => \@results &> + +<form method="post" action="Create.html" id="CreateScrip" name="CreateScrip"> +<input type="hidden" class="hidden" name="Queue" value="<% $Queue %>" /> +<input type="hidden" class="hidden" name="Global" value="<% $Global || q{} %>" /> + +<&| /Widgets/TitleBox, title => loc('Basics') &> +<table> + +<& Elements/EditBasics, %ARGS, Scrip => $scrip, Queue => $queue_obj &> + +<tr><td class="label"><&|/l&>Stage</&>:</td><td class="value">\ +<& /Admin/Elements/SelectStage, Default => $ARGS{"Stage"} &></td></tr> + +<tr><td class="label"> </td><td> +<input type="hidden" class="hidden" name="SetEnabled" value="1" /> +<input type="checkbox" class="checkbox" name="Enabled" value="1" <% $ARGS{'Enabled'}? 'checked="checked"': '' |n%> /> +<label for="Enabled"><&|/l&>Enabled (Unchecking this box disables this scrip)</&></label> +</td></tr> + +</table> +</&> + +<& /Elements/Submit, + Label => loc('Create'), + Name => 'Create', +&> + +% if ($session{CurrentUser}->HasRight(Object => $RT::System, Right => 'ExecuteCode')) { +<& Elements/EditCustomCode, %ARGS, Scrip => $scrip &> +<& /Elements/Submit, + Label => loc('Create'), + Name => 'Create', +&> +% } + +</form> +<%ARGS> +$Queue => 0 +$Create => undef +$Global => undef +</%ARGS> +<%INIT> +my @results; + +$ARGS{'Enabled'} = 1 unless $ARGS{'SetEnabled'}; + +my $queue_obj; +if ( $Queue ) { + $queue_obj = RT::Queue->new( $session{'CurrentUser'} ); + $queue_obj->Load( $Queue ); + Abort( loc("Couldn't load queue [_1]", $Queue) ) + unless $queue_obj->id; +} + +my $title; +if ( $queue_obj ) { + $title = loc('Create a scrip and add to queue [_1]', $queue_obj->Name ); +} else { + $title = loc('Create a global scrip'); +} + +my $scrip = RT::Scrip->new( $session{'CurrentUser'} ); +if ( $Create ) { + my ($status, $msg) = $scrip->Create( + Description => $ARGS{"Description"}, + + Queue => $Queue || 0, + Stage => $ARGS{"Stage"}, + Disabled => $ARGS{"Disabled"}, + + ScripAction => $ARGS{"ScripAction"}, + ScripCondition => $ARGS{"ScripCondition"}, + Template => $ARGS{"Template"}, + + CustomPrepareCode => $ARGS{"CustomPrepareCode"}, + CustomCommitCode => $ARGS{"CustomCommitCode"}, + CustomIsApplicableCode => $ARGS{"CustomIsApplicableCode"}, + ); + + MaybeRedirectForResults( + Force => 1, + Actions => [ $msg ], + Path => 'Admin/Scrips/Modify.html', + Arguments => { + id => $scrip->id, + $Queue ? ( + From => $Queue, + ) : $Global ? ( + From => 'Global', + ) : () + }, + ) if $status; + + push @results, $msg; +} + +</%INIT> diff --git a/rt/share/html/Admin/Scrips/Elements/EditBasics b/rt/share/html/Admin/Scrips/Elements/EditBasics new file mode 100644 index 0000000..ed7a800 --- /dev/null +++ b/rt/share/html/Admin/Scrips/Elements/EditBasics @@ -0,0 +1,74 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<tr><td class="label"><&|/l&>Description</&>:</td><td class="value">\ +<input name="Description" \ + size="60" \ + value="<% $ARGS{"Description"} || $Scrip->Description || '' %>" /> +</td></tr> + +<tr><td class="label"><&|/l&>Condition</&>:</td><td class="value">\ +<& /Admin/Elements/SelectScripCondition, + Default => $ARGS{"ScripCondition"} || $Scrip->ConditionObj->Id, +&></td></tr> + +<tr><td class="label"><&|/l&>Action</&>:</td><td class="value">\ +<& /Admin/Elements/SelectScripAction, + Default => $ARGS{"ScripAction"} || $Scrip->ActionObj->Id, +&></td></tr> + +<tr><td class="label"><&|/l&>Template</&>:</td><td class="value">\ +<& SelectTemplate, + Default => $ARGS{"Template"}, Scrip => $Scrip, Queue => $Queue, +&></td></tr> + +<%ARGS> +$Scrip +$Queue => undef +</%ARGS> +<%INIT> +</%INIT> diff --git a/rt/share/html/Admin/Scrips/Elements/EditCustomCode b/rt/share/html/Admin/Scrips/Elements/EditCustomCode new file mode 100644 index 0000000..dfd0fdb --- /dev/null +++ b/rt/share/html/Admin/Scrips/Elements/EditCustomCode @@ -0,0 +1,77 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<&| /Widgets/TitleBox, title => loc('User Defined conditions and results') &> + +<table> +<tr><td colspan="2" class="comment"> +<i><&|/l&>(Use these fields when you choose 'User Defined' for a condition or action)</&></i> +</td></tr> + +% while ( my ($method, $desc) = splice @list, 0, 2 ) { +<tr><td class="labeltop"><% $desc %>:</td><td class="value"> +% my $code = $ARGS{ $method } || $Scrip->$method() || ''; +% my $lines = @{[ $code =~ /\n/gs ]} + 3; +% $lines = $min_lines if $lines < $min_lines; +<textarea cols="80" rows="<% $lines %>" name="<% $method %>"><% $code %></textarea> +</td></tr> +% } + +</table> +</&> +<%ARGS> +$Scrip +</%ARGS> +<%INIT> +my @list = ( + CustomIsApplicableCode => loc('Custom condition'), + CustomPrepareCode => loc('Custom action preparation code'), + CustomCommitCode => loc('Custom action commit code'), +); + +my $min_lines = 10; +</%INIT> diff --git a/rt/share/html/Admin/Scrips/Elements/SelectTemplate b/rt/share/html/Admin/Scrips/Elements/SelectTemplate new file mode 100644 index 0000000..ee7e96b --- /dev/null +++ b/rt/share/html/Admin/Scrips/Elements/SelectTemplate @@ -0,0 +1,108 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<select name="<% $Name %>"> +<option value=""><% $current || '-' %></option> +% foreach my $name ( @list ) { +<option value="<% $name %>" \ + <% lc($Default||'') eq lc $name ? 'selected="selected"' : '' |n %> +><% loc($name) %></option> +% } +</select> +<%ARGS> +$Name => 'Template' +$Queue => undef +$Scrip => undef +$Default => undef +</%ARGS> +<%INIT> + +my $current; +$current = $Scrip->Template if $Scrip; + +my @list; +if ( $Scrip && $Scrip->id && !$Scrip->IsAddedToAny ) { + my $templates = RT::Templates->new($session{'CurrentUser'}); + $templates->UnLimit; + @list = $templates->DistinctFieldValues('Name'); +} else { + my $global = RT::Templates->new($session{'CurrentUser'}); + $global->LimitToGlobal; + + my %global; + + while (my $t = $global->Next) { + $global{ lc $t->Name } = $t->Name + } + + my @queues; + push @queues, @{ $Scrip->AddedTo->ItemsArrayRef } if $Scrip && $Scrip->id; + push @queues, $Queue if $Queue && $Queue->id; + + my (%names, %counters); + foreach my $queue ( @queues ) { + my $templates = RT::Templates->new($session{'CurrentUser'}); + $templates->LimitToQueue( $queue->id ); + foreach my $name ( map $_->Name, @{ $templates->ItemsArrayRef } ) { + next if $global{ lc $name }; + $counters{ lc $name }++; + $names{lc $name} = $name; + } + } + delete $counters{ $_ } + foreach grep $counters{$_} != @queues, + keys %counters; + + @list = + map $global{$_} || $names{$_}, + keys %global, keys %counters; +} + +@list = sort { lc loc($a) cmp lc loc($b) } @list + if @list; + +</%INIT> diff --git a/rt/share/html/Admin/Scrips/Modify.html b/rt/share/html/Admin/Scrips/Modify.html new file mode 100644 index 0000000..b6315ad --- /dev/null +++ b/rt/share/html/Admin/Scrips/Modify.html @@ -0,0 +1,141 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<& /Admin/Elements/Header, Title => loc("Modify scrip #[_1]", $id) &> +<& /Elements/Tabs &> +<& /Elements/ListActions, actions => \@results &> + +<form method="post" action="Modify.html" id="ModifyScrip" name="ModifyScrip"> +<input type="hidden" class="hidden" name="id" value="<% $id %>" /> +<input type="hidden" class="hidden" name="From" value="<% $From || q{} %>" /> + +<&| /Widgets/TitleBox, title => loc('Basics') &> +<table> + +<& Elements/EditBasics, %ARGS, Scrip => $scrip &> + +% if ( not $disabled ) { +<tr><td class="label"><a href="Objects.html?id=<% $id %>"><&|/l&>Applies to</&></a>:</td> +<td class="value">\ +% if ( $scrip->IsGlobal ) { +<a href="<% RT->Config->Get('WebPath') %>/Admin/Global/Scrips.html"><% loc('Global') %></a> +% } else { +% my $added_to = $scrip->AddedTo; +% my $found = 0; +% while ( my $queue = $added_to->Next ) { +% $m->out(', ') if $found++; +<a href="<% RT->Config->Get('WebPath') %>/Admin/Queues/Scrips.html?id=<% $queue->id %>">\ +<% $queue->Name %></a>\ +% last if $found == 10; +% } +% $m->out(', ...') if $found == 10; +% } +<td></tr> +% } + +<tr><td class="label"> </td><td> +<input type="hidden" class="hidden" name="SetEnabled" value="1" /> +<input type="checkbox" class="checkbox" name="Enabled" id="Enabled" value="1" <% $EnabledChecked |n%> /> +<label for="Enabled"><&|/l&>Enabled (Unchecking this box disables this scrip)</&></label> +</td></tr> + +</table> +</&> + +<& /Elements/Submit, Label => loc('Save Changes'), Name => 'Update', Reset => 1 &> + +% if ($session{CurrentUser}->HasRight(Object => $RT::System, Right => 'ExecuteCode')) { +<& Elements/EditCustomCode, %ARGS, Scrip => $scrip &> +<& /Elements/Submit, Label => loc('Save Changes'), Name => 'Update', Reset => 1 &> +% } + +</form> +<%ARGS> +$id => undef +$Update => undef +$From => undef +</%ARGS> +<%INIT> +my $scrip = RT::Scrip->new( $session{'CurrentUser'} ); +$scrip->Load( $id ); +Abort(loc("Couldn't load scrip #[_1]", $id)) + unless $scrip->id; + +my $disabled = $scrip->Disabled; + +if ( $Update ) { + my @attribs = qw( + Description + ScripAction ScripCondition + CustomPrepareCode CustomCommitCode CustomIsApplicableCode + ); + push @attribs, "Template" if defined $ARGS{Template} and length $ARGS{Template}; + if ($ARGS{"SetEnabled"}) { + push @attribs, "Disabled"; + $ARGS{"Disabled"} = not $ARGS{"Enabled"}; + } + my @results = UpdateRecordObject( + AttributesRef => \@attribs, + Object => $scrip, + ARGSRef => \%ARGS + ); + MaybeRedirectForResults( + Actions => \@results, + Arguments => { + id => $scrip->id, + From => $From, + }, + ); +} + +my $EnabledChecked = qq[checked="checked"]; +$EnabledChecked = '' if $disabled; + +my @results; +my ($ok, $msg) = $scrip->CompileCheck; +push @results, $msg if !$ok; +</%INIT> diff --git a/rt/share/html/Admin/Scrips/Objects.html b/rt/share/html/Admin/Scrips/Objects.html new file mode 100644 index 0000000..58ca59c --- /dev/null +++ b/rt/share/html/Admin/Scrips/Objects.html @@ -0,0 +1,172 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<& /Admin/Elements/Header, Title => $title &> +<& /Elements/Tabs &> +<& /Elements/ListActions &> + +<form action="Objects.html" method="post" name="AddRemoveScrip"> +<input type="hidden" class="hidden" name="id" value="<% $id %>" /> +<input type="hidden" class="hidden" name="From" value="<% $From || q{} %>" /> + +% if ( $global ) { +<h2><&|/l&>Applies to all objects</&></h2> +<label> +<input type="checkbox" name="RemoveScrip-<% $id %>" value="0" /> +<&|/l&>check this box to remove this scrip from all objects and be able to choose specific objects.</&> +</label> + +<& /Admin/Elements/SelectStageForAdded, + Default => $Stage || $global->Stage, + Label => loc("Select global scrip stage:") + &> +% } else { +<h2><&|/l&>Apply globally</&></h2> + +<label> +<input type="checkbox" name="AddScrip-<% $id %>" value="0" /> +<&|/l&>check this box to apply this scrip to all objects.</&> +</label> + +<h2><&|/l&>Selected objects</&></h2> +<& /Elements/CollectionList, + OrderBy => 'id', + Order => 'ASC', + %ARGS, + Collection => $added, + Rows => 0, + Page => 1, + Format => $format, + DisplayFormat => "'__CheckBox.{RemoveScrip-$id}__','__ScripStage.{$id}__',". $format, + AllowSorting => 0, + ShowEmpty => 0, + PassArguments => [ + qw(id Stage Format Rows Page Order OrderBy), + ], +&> + +<h2><&|/l&>Unselected objects</&></h2> +<& /Elements/CollectionList, + OrderBy => 'Name', + Order => 'ASC', + %ARGS, + Collection => $not_added, + Rows => $rows, + Format => $format, + DisplayFormat => "'__CheckBox.{AddScrip-". $id ."}__',". $format, + AllowSorting => 1, + ShowEmpty => 0, + PassArguments => [ + qw(id Stage Format Rows Page Order OrderBy), + ], +&> + +<& /Admin/Elements/SelectStageForAdded, Default => $Stage &> +<div style="text-align:right"> +<% loc('You can change template if needed') %>: +<& Elements/SelectTemplate, Scrip => $scrip, Default => $Template &> +</div> + +% } + +<& /Elements/Submit, Name => 'Update' &> +</form> + +<%ARGS> +$id => undef +$Stage => undef +$Template => '' +$Update => 0 +$From => undef +</%ARGS> +<%INIT> +my $scrip = RT::Scrip->new( $session{'CurrentUser'} ); +$scrip->Load($id) or Abort(loc("Could not load scrip #[_1]", $id)); +$id = $scrip->id; + +my $global = $scrip->IsGlobal; + +if ( $Update ) { + my (@results); + if ( $Template ) { + my ($status, $msg) = $scrip->SetTemplate( $Template ); + push @results, loc('Template: [_1]', $msg); + } + if ( defined (my $del = $ARGS{"RemoveScrip-$id"}) ) { + foreach my $id ( ref $del? (@$del) : ($del) ) { + my ($status, $msg) = $scrip->RemoveFromObject( $id ); + push @results, $msg; + } + } + if ( defined (my $add = $ARGS{"AddScrip-$id"}) ) { + foreach my $id ( ref $add? (@$add) : ($add) ) { + my ($status, $msg) = $scrip->AddToObject( $id, Stage => $Stage ); + push @results, $msg; + } + } + if ($global and $global->Stage ne $Stage) { + my ($status, $msg) = $global->SetStage($Stage); + push @results, $msg; + } + MaybeRedirectForResults( + Actions => \@results, + Arguments => { + id => $id, + From => $From, + }, + ); +} + +my $added = $scrip->AddedTo; +my $not_added = $scrip->NotAddedTo; + +my $format = RT->Config->Get('AdminSearchResultFormat')->{'Queues'}; +my $rows = RT->Config->Get('AdminSearchResultRows')->{'Queues'} || 50; + +my $title = loc('Modify associated objects for scrip #[_1]', $id); + +</%INIT> diff --git a/rt/share/html/Admin/Scrips/index.html b/rt/share/html/Admin/Scrips/index.html new file mode 100644 index 0000000..7c54dcf --- /dev/null +++ b/rt/share/html/Admin/Scrips/index.html @@ -0,0 +1,72 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC +%# <sales@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 }}} +<& /Admin/Elements/Header, Title => loc('Select a Scrip') &> +<& /Elements/Tabs &> + +<& /Elements/CollectionList, + OrderBy => 'Description', + Order => 'ASC', + Rows => $Rows, + %ARGS, + Collection => $scrips, + Format => $Format, + AllowSorting => 1, +&> +<%args> +$Format => undef +</%args> +<%INIT> +my $scrips = RT::Scrips->new( $session{'CurrentUser'} ); +$scrips->FindAllRows; +$scrips->UnLimit; + +$m->callback(CallbackName => 'Massage', Scrips => $scrips); + +$Format ||= RT->Config->Get('AdminSearchResultFormat')->{'Scrips'}; +my $Rows = RT->Config->Get('AdminSearchResultRows')->{'Scrips'} || 50; +</%INIT> |