diff options
Diffstat (limited to 'rt/webrt/Admin/Global')
| -rwxr-xr-x | rt/webrt/Admin/Global/GroupRights.html | 78 | ||||
| -rw-r--r-- | rt/webrt/Admin/Global/Keywords.html | 97 | ||||
| -rwxr-xr-x | rt/webrt/Admin/Global/Scrips.html | 95 | ||||
| -rwxr-xr-x | rt/webrt/Admin/Global/Template.html | 66 | ||||
| -rwxr-xr-x | rt/webrt/Admin/Global/Templates.html | 24 | ||||
| -rwxr-xr-x | rt/webrt/Admin/Global/UserRights.html | 42 | ||||
| -rwxr-xr-x | rt/webrt/Admin/Global/index.html | 2 |
7 files changed, 0 insertions, 404 deletions
diff --git a/rt/webrt/Admin/Global/GroupRights.html b/rt/webrt/Admin/Global/GroupRights.html deleted file mode 100755 index 26b7e1fe2..000000000 --- a/rt/webrt/Admin/Global/GroupRights.html +++ /dev/null @@ -1,78 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify System ACLS' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@results &> - <FORM METHOD=POST action="GroupRights.html"> - - - -<h2>Modify global rights for groups</h2> - -<TABLE> -<TR><TD>Pseudogroups</TD></TR> -% while (my $GroupObj = $PseudoGroups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - -<TR><TD>Groups</TD></TR> - -% while (my $GroupObj = $Groups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - - </TABLE> - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - - <%INIT> - - #Update the acls. - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - - - # {{{ do basic initialization. - - - - # Find out which groups we want to display ACL selects for. - my $Groups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $Groups->LimitToReal(); - - - my $PseudoGroups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $PseudoGroups->LimitToPseudo; - - # }}} - - - - - </%INIT> - -<%ARGS> -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/Keywords.html b/rt/webrt/Admin/Global/Keywords.html deleted file mode 100644 index bf7bbd266..000000000 --- a/rt/webrt/Admin/Global/Keywords.html +++ /dev/null @@ -1,97 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit keywords' &> -<& /Admin/Elements/SystemTabs &> -<& /Elements/ListActions, actions => \@actions &> - -<& /Elements/TitleBoxStart, title => $description &> - - <FORM METHOD=POST ACTION="Keywords.html"> - -% if ($KeywordSelects->Count > 0 ) { -<TABLE> -<TR><TD>Delete</TD></TR> -% while (my $keywordselect = $KeywordSelects->Next ) { -<TR> - <TD><INPUT TYPE="CHECKBOX" NAME="KeywordSelect-<%$keywordselect->Id%>-Delete"></TD> - <TD><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $keywordselect &></TD> -</TR> -% } -</TABLE> -% } - -Add a global keyword selection: -%my $ks = new RT::KeywordSelect($session{'CurrentUser'}); -<ul> -<li><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $ks, NamePrefix => 'new' &></li> -</ul> - -<& /Elements/TitleBoxEnd &> -<& /Elements/Submit &> -</FORM> - - - -<%init> -my (@actions); - -my $description = "Modify global Keyword selections"; - -my $KeywordSelects = new RT::KeywordSelects ($session{'CurrentUser'}); - -unless ($KeywordSelects->LimitToGlobals()) { - Abort("Couldn't load KeywordSelects."); -} - - -# {{{ if we're trying to create a new keyword select - -if ($ARGS{'KeywordSelect-new-Name'}) { - my $NewKeywordSelect = new RT::KeywordSelect($session{'CurrentUser'}); - - my ($retval, $msg) = $NewKeywordSelect->Create ( Keyword => $ARGS{'KeywordSelect-new-Keyword'}, - ObjectField => 'Queue', - ObjectType => 'Ticket', - ObjectValue => 0, - Name => $ARGS{'KeywordSelect-new-Name'}, - Single => $ARGS{'KeywordSelect-new-Single'}, - Depth => $ARGS{'KeywordSelect-new-Depth'} - ); - push (@actions, $msg); -} -# }}} - -# {{{ if we're trying to delete the keywordselect -foreach my $key (keys %ARGS) { - if ($key =~ /^KeywordSelect-(\d+)-Delete$/) { - my $id = $1; - my $keywordselect = new RT::KeywordSelect($session{'CurrentUser'}); - $keywordselect->Load($id) || push @actions, "Couldn't load keywordSelect"; - my ($val, $msg) = $keywordselect->SetDisabled(1); - if ($val) { - push @actions, 'KeywordSelect disabled.'; - } - else { - push @actions, $msg; - } - } -} -# }}} -# {{{ if we're modifying keyword selects -my @fields = qw(Name Keyword Single Depth); - -while (my $ks = $KeywordSelects->Next) { - foreach my $field (@fields) { - if (defined ($ARGS{"KeywordSelect-".$ks->Id."-".$field}) && - ($ARGS{"KeywordSelect-".$ks->Id."-".$field} ne $ks->$field())) { - - my $method = "Set$field"; - my ($val, $msg) = $ks->$method($ARGS{"KeywordSelect-".$ks->Id."-".$field}); - push @actions, "Keyword Select ". $ks->Name."/$field:".$msg; - } - } -} -# }}} - -</%init> - -<%ARGS> -</%ARGS> 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> diff --git a/rt/webrt/Admin/Global/Template.html b/rt/webrt/Admin/Global/Template.html deleted file mode 100755 index 856d2ee8f..000000000 --- a/rt/webrt/Admin/Global/Template.html +++ /dev/null @@ -1,66 +0,0 @@ -<& /Admin/Elements/Header, title => "Modify template ".$TemplateObj->id&> -<& /Admin/Elements/SystemTabs &> -<& /Elements/ListActions, actions => \@results &> - -<& /Elements/TitleBoxStart, title => $title &> - -<FORM METHOD=POST ACTION="Template.html"> -%if ($create ) { -<INPUT TYPE=HIDDEN NAME=template VALUE="new"> -% } else { -<INPUT TYPE=HIDDEN NAME=template VALUE="<%$TemplateObj->Id%>"> -% } - -%# hang onto the queue id -<INPUT TYPE=HIDDEN name="Queue" value="<%$Queue%>"> - - -Name: <input name="Name" VALUE="<%$TemplateObj->Name%>" SIZE=20><BR> -Description: <input name="Description" VALUE="<%$TemplateObj->Description%>" SIZE=80><BR> - -<TEXTAREA NAME=Content ROWS=25 COLS=80 WRAP=SOFT> -<%$TemplateObj->Content%></TEXTAREA> - -<& /Elements/TitleBoxEnd&> -<&/Elements/Submit&> -</FORM> - - - -<%INIT> - -my $TemplateObj = new RT::Template($session{'CurrentUser'}); -my ($title, @results); - -if ($create) { - $title = "Create a template"; -} - -else { - if ($template eq 'new') { - my ($val, $msg) = $TemplateObj->Create(Queue => $Queue, Name => $Name); - Abort("Could not create template: $msg") unless ($val); - push @results, $msg; - $title = 'Created template ' . $TemplateObj->Name(); - } - else { - $TemplateObj->Load($template) || Abort('No Template'); - $title = 'Editing template ' . $TemplateObj->Name(); - } - - -} -if ($TemplateObj->Id()) { - my @attribs = qw( Description Content Queue Name); - my @aresults = UpdateRecordObject( AttributesRef => \@attribs, - Object => $TemplateObj, - ARGSRef => \%ARGS); - push @results, @aresults; -} -</%INIT> -<%ARGS> -$Queue => undef -$template => undef -$create => undef -$Name => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/Templates.html b/rt/webrt/Admin/Global/Templates.html deleted file mode 100755 index cf388e521..000000000 --- a/rt/webrt/Admin/Global/Templates.html +++ /dev/null @@ -1,24 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Edit system templates' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/TitleBoxStart, title => 'Edit system templates' &> -<UL> -<LI><A href="Template.html?create=1&Queue=0">Create a new template</A><BR><BR> - - -%while (my $TemplateObj = $Templates->Next) { - -<LI><A HREF="Template.html?template=<%$TemplateObj->id()%>"><%$TemplateObj->id()%>/<%$TemplateObj->Name%>: <%$TemplateObj->Description%></a><BR> - -%} - -<& /Elements/TitleBoxEnd &> -<%INIT> - -my $Templates = RT::Templates->new($session{'CurrentUser'}); -$Templates->LimitToGlobal(); - -</%INIT> -<%ARGS> -$id => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/UserRights.html b/rt/webrt/Admin/Global/UserRights.html deleted file mode 100755 index 351f4b8c6..000000000 --- a/rt/webrt/Admin/Global/UserRights.html +++ /dev/null @@ -1,42 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify System ACLS' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@results &> - <FORM METHOD=POST action="UserRights.html"> - - -<h2>Modify global rights for users</h2> -<TABLE> -% while (my $UserObj = $Users->Next()) { - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <A HREF="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$UserObj->id%>"><% $UserObj->Name %></A> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj, - PrincipalType => 'User', - Scope => 'System' &> - - </TD> - </TR> - -% } - </TABLE> - - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - -<%INIT> - - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - - # Find out which users we want to display ACL selects for - my $Users = new RT::Users($session{'CurrentUser'}); - - $Users->LimitToPrivileged(); - -</%INIT> - -<%ARGS> -@CheckACL => undef -</%ARGS> diff --git a/rt/webrt/Admin/Global/index.html b/rt/webrt/Admin/Global/index.html deleted file mode 100755 index 5907ed1e8..000000000 --- a/rt/webrt/Admin/Global/index.html +++ /dev/null @@ -1,2 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Admin/Global configuration' &> -<& /Admin/Elements/SystemTabs &> |