summaryrefslogtreecommitdiff
path: root/rt/share/html/Admin/Elements/ModifyTemplate
diff options
context:
space:
mode:
Diffstat (limited to 'rt/share/html/Admin/Elements/ModifyTemplate')
-rwxr-xr-xrt/share/html/Admin/Elements/ModifyTemplate12
1 files changed, 8 insertions, 4 deletions
diff --git a/rt/share/html/Admin/Elements/ModifyTemplate b/rt/share/html/Admin/Elements/ModifyTemplate
index ebe7c73bc..f5bb866de 100755
--- a/rt/share/html/Admin/Elements/ModifyTemplate
+++ b/rt/share/html/Admin/Elements/ModifyTemplate
@@ -2,7 +2,7 @@
%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
@@ -63,13 +63,17 @@
</tr>
<tr>
<td class="label" valign="top"><&|/l&>Content</&>:</td>
-<td class="value"><textarea name="Content" rows="25" cols="80" wrap="soft"><%$Content||''%></textarea></td>
+<td class="value"><textarea name="Content" rows="25" cols="80" wrap="soft">
+<%$Content||''%></textarea></td>
</tr>
</table>
<%INIT>
-$Type = 'Perl' if !$Type;
+unless ($Type) {
+ $Type = $session{'CurrentUser'}->HasRight(Right => 'ExecuteCode', Object => $RT::System) ?
+ 'Perl' : 'Simple';
+}
</%INIT>
@@ -77,5 +81,5 @@ $Type = 'Perl' if !$Type;
$Name => ''
$Description => ''
$Content => ''
-$Type => 'Perl'
+$Type => ''
</%ARGS>