rt/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" value="<% $ARGS{"Scrip-$id-Description"} || $scrip->Description %>" />
  59 </td></tr>
  60
  61 <tr><td align="right"><&|/l&>Condition</&>:</td><td>
  62 <& /Admin/Elements/SelectScripCondition,
  63     Name => "Scrip-$id-ScripCondition",
  64     Default => $ARGS{"Scrip-$id-ScripCondition"} || $scrip->ConditionObj->Id,
  65 &></td></tr>
  66
  67 <tr><td align="right"><&|/l&>Action</&>:</td><td>
  68 <& /Admin/Elements/SelectScripAction,
  69     Name => "Scrip-$id-ScripAction",
  70     Default => $ARGS{"Scrip-$id-ScripAction"} || $scrip->ActionObj->Id,
  71 &></td></tr>
  72
  73 <tr><td align="right"><&|/l&>Template</&>:</td><td>
  74 <& /Admin/Elements/SelectTemplate,
  75     Name => "Scrip-$id-Template",
  76     Default => $ARGS{"Scrip-$id-Template"} || $scrip->TemplateObj->Id,
  77     Queue => $Queue,
  78 &></td></tr>
  79
  80 <tr><td align="right"><&|/l&>Stage</&>:</td><td>
  81 <& /Admin/Elements/SelectStage,
  82     Name => "Scrip-$id-Stage",
  83     Default => $ARGS{"Scrip-$id-Stage"} || $scrip->Stage,
  84 &></td></tr>
  85
  86 </table>
  87 </&>
  88
  89 <& /Elements/Submit,
  90     Label => $SubmitLabel,
  91     Caption => loc("Be sure to save your changes"),
  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 <textarea cols="80" rows="5" name="Scrip-<% $id %>-CustomIsApplicableCode"><% $ARGS{"Scrip-$id-CustomIsApplicableCode"} || $scrip->CustomIsApplicableCode %></textarea>
 103 </td></tr>
 104
 105 <tr><td class="labeltop"><&|/l&>Custom action preparation code</&>:</td><td>
 106 <textarea cols="80" rows="5" name="Scrip-<% $id %>-CustomPrepareCode"><% $ARGS{"Scrip-$id-CustomPrepareCode"} || $scrip->CustomPrepareCode %></textarea>
 107 </td></tr>
 108
 109 <tr><td class="labeltop"><&|/l&>Custom action cleanup code</&>:</td><td>
 110 <textarea cols="80" rows="5" name="Scrip-<% $id %>-CustomCommitCode"><% $ARGS{"Scrip-$id-CustomCommitCode"} || $scrip->CustomCommitCode %></textarea>
 111 </td></tr>
 112
 113 </table>
 114 </&>
 115
 116 <& /Elements/Submit, Label => $SubmitLabel, Reset => 1 &>
 117
 118 </form>
 119 <%init>
 120
 121 my (@actions, $SubmitLabel);
 122
 123 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
 124
 125 if ( $id ) {
 126     $scrip->Load( $id );
 127     unless ( $id = $scrip->id ) {
 128         push @actions, loc("Couldn't load scrip #[_1]", $id);
 129     }
 130     $SubmitLabel = loc('Update');
 131 }
 132
 133 unless ( $id ) {
 134     $id = 'new';
 135     $SubmitLabel = loc('Create');
 136 }
 137
 138 </%init>
 139
 140 <%ARGS>
 141 $id => undef
 142 $title => undef
 143 $Queue => 0
 144 </%ARGS>
 145
 146 <%METHOD Process>
 147 <%ARGS>
 148 $id => undef
 149 $Queue => undef
 150 </%ARGS>
 151 <%INIT>
 152 return ($id) unless $id;
 153
 154 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
 155 if ( $id eq 'new' ) {
 156     return $scrip->Create(
 157         Queue                  => $Queue,
 158         ScripAction            => $ARGS{"Scrip-new-ScripAction"},
 159         ScripCondition         => $ARGS{"Scrip-new-ScripCondition"},
 160         Template               => $ARGS{"Scrip-new-Template"},
 161         Description            => $ARGS{"Scrip-new-Description"},
 162         CustomPrepareCode      => $ARGS{"Scrip-new-CustomPrepareCode"},
 163         CustomCommitCode       => $ARGS{"Scrip-new-CustomCommitCode"},
 164         CustomIsApplicableCode => $ARGS{"Scrip-new-CustomIsApplicableCode"},
 165     );
 166 }
 167 else {
 168     $scrip->Load( $id );
 169     return (undef, loc("Couldn't load scrip #[_1]", $id))
 170         unless $scrip->id;
 171
 172     my @attribs = qw(Queue ScripAction ScripCondition Template Stage
 173         Description CustomPrepareCode CustomCommitCode CustomIsApplicableCode);
 174     my @results = UpdateRecordObject(
 175         AttributesRef   => \@attribs,
 176         AttributePrefix => 'Scrip-'.$scrip->Id,
 177         Object          => $scrip,
 178         ARGSRef         => \%ARGS
 179     );
 180     return ($scrip->id, @results);
 181 }
 182 </%INIT>
 183 </%METHOD>