diff options
Diffstat (limited to 'rt/webrt/Admin/Global/Scrips.html')
-rwxr-xr-x | rt/webrt/Admin/Global/Scrips.html | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/rt/webrt/Admin/Global/Scrips.html b/rt/webrt/Admin/Global/Scrips.html deleted file mode 100755 index e55f8b3de..000000000 --- a/rt/webrt/Admin/Global/Scrips.html +++ /dev/null @@ -1,95 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit scrips' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => "Modify global scrips" &> - - <FORM METHOD=POST ACTION="Scrips.html"> - -% if ($Scrips->Count > 0 ) { -<TABLE> -<TR> -<TD>Delete -</TD> -<TD> -</TR> - -% while (my $scrip = $Scrips->Next ) { -<TR> -<TD> -<INPUT TYPE="CHECKBOX" NAME="DeleteScrip-<%$scrip->Id%>"> -</TD> -<TD> -<% $scrip->ConditionObj->Name %> -<% $scrip->ActionObj->Name %> -with template <% $scrip->TemplateObj->Name %> -</TD> -</TR> -% } - -</TABLE> - -% } -Add a scrip which will apply to all queues: -<ul> -<li>Condition: <& /Admin/Elements/SelectScripCondition, Name => 'NewScripCondition' &> - Action: <& /Admin/Elements/SelectScripAction, Name => 'NewScripAction' &> - Template: <& /Admin/Elements/SelectTemplate, Name => 'NewScripTemplate' &> - -</ul> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</FORM> -<%init> -my (@actions, $description); - -my $Scrips = new RT::Scrips ($session{'CurrentUser'}); -$Scrips->LimitToGlobal(); - - - - -if ($NewScripAction and $NewScripCondition) { - my $NewScrip = new RT::Scrip($session{'CurrentUser'}); - - my ($retval, $msg) = $NewScrip->Create ( ScripAction => $NewScripAction, - ScripCondition => $NewScripCondition, - Stage => 'TransactionCreate', - Queue => 0, - Template => $NewScripTemplate); - if (defined $retval) { - push @actions, $msg; - } - else { - push @actions, $msg; - } -} - -# {{{ deal with modifying and deleting existing scrips -my ($key ); -foreach $key (keys %ARGS) { - # {{{ if we're trying to delete the scrip - if ($key =~ /^DeleteScrip-(\d+)/) { - my $id = $1; - my $scrip = new RT::Scrip($session{'CurrentUser'}); - $scrip->Load($id); - my ($retval, $msg) = $scrip->Delete; - if ($retval) { - push @actions, "Scrip deleted"; - } - else { - push @actions, $msg; - } - } - # }}} -} -# }}} -</%init> - -<%ARGS> -$NewScripCondition => undef -$NewScripAction => undef -$NewScripTemplate => undef -</%ARGS> |