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