Initial commit 4.0.5-3
[usit-rt.git] / share / html / Admin / Elements / EditScrip
1 %# BEGIN BPS TAGGED BLOCK {{{
2 %#
3 %# COPYRIGHT:
4 %#
5 %# This software is Copyright (c) 1996-2012 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 <& /Elements/ListActions, actions => \@actions &>
49   
50 <form method="post" action="Scrip.html" id="ModifyScrip" name="ModifyScrip">
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 class="label"><&|/l&>Description</&>:</td><td class="value">\
58 <input name="Scrip-<% $id %>-Description" \
59     size="60" \
60     value="<% $ARGS{"Scrip-$id-Description"} || $scrip->Description || '' %>" />
61 </td></tr>
62
63 <tr><td class="label"><&|/l&>Condition</&>:</td><td class="value">\
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 class="label"><&|/l&>Action</&>:</td><td class="value">\
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 class="label"><&|/l&>Template</&>:</td><td class="value">\
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 class="label"><&|/l&>Stage</&>:</td><td class="value">\
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 % if ($session{CurrentUser}->HasRight(Object => $RT::System, Right => 'ExecuteCode')) {
92 <& /Elements/Submit,
93     Label => $SubmitLabel,
94     Reset => 1,
95 &><br />
96
97 <&| /Widgets/TitleBox, title => loc('User Defined conditions and actions') &>
98 <table>
99 <tr><td colspan="2">
100 <i><&|/l&>(Use these fields when you choose 'User Defined' for a condition or action)</&></i>
101 </td></tr>
102
103 <tr><td class="labeltop"><&|/l&>Custom condition</&>:</td><td class="value">
104 % my $code = $ARGS{"Scrip-$id-CustomIsApplicableCode"} || $scrip->CustomIsApplicableCode || '';
105 % my $lines = @{[ $code =~ /\n/gs ]} + 3;
106 % $lines = $min_lines if $lines < $min_lines;
107 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id %>-CustomIsApplicableCode"><% $code %></textarea>
108 </td></tr>
109
110 <tr><td class="labeltop"><&|/l&>Custom action preparation code</&>:</td><td class="value">
111 % $code = $ARGS{"Scrip-$id-CustomPrepareCode"} || $scrip->CustomPrepareCode || '';
112 % $lines = @{[ $code =~ /\n/gs ]} + 3;
113 % $lines = $min_lines if $lines < $min_lines;
114 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id %>-CustomPrepareCode"><% $code %></textarea>
115 </td></tr>
116
117 <tr><td class="labeltop"><&|/l&>Custom action cleanup code</&>:</td><td class="value">
118 % $code = $ARGS{"Scrip-$id-CustomCommitCode"} || $scrip->CustomCommitCode || '';
119 % $lines = @{[ $code =~ /\n/gs ]} + 3;
120 % $lines = $min_lines if $lines < $min_lines;
121 <textarea cols="80" rows="<% $lines %>" name="Scrip-<% $id || '' %>-CustomCommitCode"><% $code %></textarea>
122 </td></tr>
123
124 </table>
125 </&>
126
127 % }
128
129 <& /Elements/Submit,
130     Label => $SubmitLabel,
131     Reset => 1,
132 &>
133
134 </form>
135 <%init>
136
137 my (@actions, $SubmitLabel);
138 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
139
140 if ( $id ) {
141     $scrip->Load( $id );
142     unless ( $id = $scrip->id ) {
143         push @actions, loc("Couldn't load scrip #[_1]", $id);
144     }
145     $SubmitLabel = loc('Save Changes');
146 }
147
148 unless ( $id ) {
149     $id = 'new';
150     $SubmitLabel = loc('Create');
151 }
152
153 my $min_lines = 10;
154
155 my ($ok, $msg) = $scrip->CompileCheck;
156 push @actions, $msg if !$ok;
157
158 </%init>
159
160 <%ARGS>
161 $id => undef
162 $title => undef
163 $Queue => 0
164 </%ARGS>
165
166 <%METHOD Process>
167 <%ARGS>
168 $id => undef
169 $Queue => undef
170 </%ARGS>
171 <%INIT>
172 return ($id) unless $id;
173
174 my $scrip = RT::Scrip->new( $session{'CurrentUser'} );
175 if ( $id eq 'new' ) {
176     return $scrip->Create(
177         Queue                  => $Queue,
178         ScripAction            => $ARGS{"Scrip-new-ScripAction"},
179         ScripCondition         => $ARGS{"Scrip-new-ScripCondition"},
180         Template               => $ARGS{"Scrip-new-Template"},
181         Description            => $ARGS{"Scrip-new-Description"},
182         CustomPrepareCode      => $ARGS{"Scrip-new-CustomPrepareCode"},
183         CustomCommitCode       => $ARGS{"Scrip-new-CustomCommitCode"},
184         CustomIsApplicableCode => $ARGS{"Scrip-new-CustomIsApplicableCode"},
185         Stage                  => $ARGS{"Scrip-new-Stage"},
186     );
187 }
188 else {
189     $scrip->Load( $id );
190     return (undef, loc("Couldn't load scrip #[_1]", $id))
191         unless $scrip->id;
192
193     my @attribs = qw(Queue ScripAction ScripCondition Template Stage
194         Description CustomPrepareCode CustomCommitCode CustomIsApplicableCode);
195     my @results = UpdateRecordObject(
196         AttributesRef   => \@attribs,
197         AttributePrefix => 'Scrip-'.$scrip->Id,
198         Object          => $scrip,
199         ARGSRef         => \%ARGS
200     );
201     return ($scrip->id, @results);
202 }
203 </%INIT>
204 </%METHOD>