rt/share/html/Admin/Elements/EditScrip

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
   6 %#                                          <jesse@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 <& /Elements/ListActions, actions => \@actions &>
  49
  50 <form method="post" action="Scrip.html">
  51 <input type="hidden" class="hidden" name="id" value="<% $id %>" />
  52 <input type="hidden" class="hidden" name="Queue" value="<% $Queue %>" />
  53
  54 <&| /Widgets/TitleBox, title => loc('Scrip Fields') &>
  55 <table>
  56
  57 <tr><td align="right"><&|/l&>Description</&>:</td><td>
  58 <input name="Scrip-<% $id %>-Description"
  59     value="<% $ARGS{"Scrip-$id-Description"} || $scrip->Description || '' %>" />
  60 </td></tr>
  61
  62 <tr><td align="right"><&|/l&>Condition</&>:</td><td>
  63 <& /Admin/Elements/SelectScripCondition,
  64     Name => "Scrip-$id-ScripCondition",
  65     Default => $ARGS{"Scrip-$id-ScripCondition"} || $scrip->ConditionObj->Id,
  66 &></td></tr>
  67
  68 <tr><td align="right"><&|/l&>Action</&>:</td><td>
  69 <& /Admin/Elements/SelectScripAction,
  70     Name => "Scrip-$id-ScripAction",
  71     Default => $ARGS{"Scrip-$id-ScripAction"} || $scrip->ActionObj->Id,
  72 &></td></tr>
  73
  74 <tr><td align="right"><&|/l&>Template</&>:</td><td>
  75 <& /Admin/Elements/SelectTemplate,
  76     Name => "Scrip-$id-Template",
  77     Default => $ARGS{"Scrip-$id-Template"} || $scrip->TemplateObj->Id,
  78     Queue => $Queue,
  79 &></td></tr>
  80
  81 <tr><td align="right"><&|/l&>Stage</&>:</td><td>
  82 <& /Admin/Elements/SelectStage,
  83     Name => "Scrip-$id-Stage",
  84     Default => $ARGS{"Scrip-$id-Stage"} || $scrip->Stage,
  85 &></td></tr>
  86
  87 </table>
  88 </&>
  89
  90 <& /Elements/Submit,
  91     Label => $SubmitLabel,
  92     Reset => 1,
  93 &><br />
  94
  95 <&| /Widgets/TitleBox, title => loc('User Defined conditions and actions') &>
  96 <table>
  97 <tr><td colspan="2">
  98 <i><&|/l&>(Use these fields when you choose 'User Defined' for a condition or action)</&></i>
  99 </td></tr>
 100
 101 <tr><td class="labeltop"><&|/l&>Custom condition</&>:</td><td>
 102 % my $code = $ARGS{"Scrip-$id-CustomIsApplicableCode"} || $scrip->CustomIsApplicableCode || '';
 103 % my $lines = @{[ $code =~ /\n/gs ]} + 3;
 104 % $lines = $min_lines if $lines < $min_lines;
 105 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id %>-CustomIsApplicableCode"><% $code %></textarea>
 106 </td></tr>
 107
 108 <tr><td class="labeltop"><&|/l&>Custom action preparation code</&>:</td><td>
 109 % $code = $ARGS{"Scrip-$id-CustomPrepareCode"} || $scrip->CustomPrepareCode || '';
 110 % $lines = @{[ $code =~ /\n/gs ]} + 3;
 111 % $lines = $min_lines if $lines < $min_lines;
 112 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id %>-CustomPrepareCode"><% $code %></textarea>
 113 </td></tr>
 114
 115 <tr><td class="labeltop"><&|/l&>Custom action cleanup code</&>:</td><td>
 116 % $code = $ARGS{"Scrip-$id-CustomCommitCode"} || $scrip->CustomCommitCode || '';
 117 % $lines = @{[ $code =~ /\n/gs ]} + 3;
 118 % $lines = $min_lines if $lines < $min_lines;
 119 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id || '' %>-CustomCommitCode"><% $code %></textarea>
 120 </td></tr>
 121
 122 </table>
 123 </&>
 124
 125 <& /Elements/Submit,
 126     Label => $SubmitLabel,
 127     Reset => 1,
 128 &>
 129
 130 </form>
 131 <%init>
 132
 133 my (@actions, $SubmitLabel);
 134 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
 135
 136 if ( $id ) {
 137     $scrip->Load( $id );
 138     unless ( $id = $scrip->id ) {
 139         push @actions, loc("Couldn't load scrip #[_1]", $id);
 140     }
 141     $SubmitLabel = loc('Save Changes');
 142 }
 143
 144 unless ( $id ) {
 145     $id = 'new';
 146     $SubmitLabel = loc('Create');
 147 }
 148
 149 my $min_lines = 10;
 150
 151 </%init>
 152
 153 <%ARGS>
 154 $id => undef
 155 $title => undef
 156 $Queue => 0
 157 </%ARGS>
 158
 159 <%METHOD Process>
 160 <%ARGS>
 161 $id => undef
 162 $Queue => undef
 163 </%ARGS>
 164 <%INIT>
 165 return ($id) unless $id;
 166
 167 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
 168 if ( $id eq 'new' ) {
 169     return $scrip->Create(
 170         Queue                  => $Queue,
 171         ScripAction            => $ARGS{"Scrip-new-ScripAction"},
 172         ScripCondition         => $ARGS{"Scrip-new-ScripCondition"},
 173         Template               => $ARGS{"Scrip-new-Template"},
 174         Description            => $ARGS{"Scrip-new-Description"},
 175         CustomPrepareCode      => $ARGS{"Scrip-new-CustomPrepareCode"},
 176         CustomCommitCode       => $ARGS{"Scrip-new-CustomCommitCode"},
 177         CustomIsApplicableCode => $ARGS{"Scrip-new-CustomIsApplicableCode"},
 178         Stage                  => $ARGS{"Scrip-new-Stage"},
 179     );
 180 }
 181 else {
 182     $scrip->Load( $id );
 183     return (undef, loc("Couldn't load scrip #[_1]", $id))
 184         unless $scrip->id;
 185
 186     my @attribs = qw(Queue ScripAction ScripCondition Template Stage
 187         Description CustomPrepareCode CustomCommitCode CustomIsApplicableCode);
 188     my @results = UpdateRecordObject(
 189         AttributesRef   => \@attribs,
 190         AttributePrefix => 'Scrip-'.$scrip->Id,
 191         Object          => $scrip,
 192         ARGSRef         => \%ARGS
 193     );
 194     return ($scrip->id, @results);
 195 }
 196 </%INIT>
 197 </%METHOD>