1 %# BEGIN BPS TAGGED BLOCK {{{
5 %# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
6 %# <jesse@bestpractical.com>
8 %# (Except where explicitly superseded by other copyright notices)
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
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.
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., 675 Mass Ave, Cambridge, MA 02139, USA.
28 %# CONTRIBUTION SUBMISSION POLICY:
30 %# (The following paragraph is not intended to limit the rights granted
31 %# to you to modify and distribute this software under the terms of
32 %# the GNU General Public License and is only of importance to you if
33 %# you choose to contribute your changes and enhancements to the
34 %# community by submitting them to Best Practical Solutions, LLC.)
36 %# By intentionally submitting any modifications, corrections or
37 %# derivatives to this work, or any other work intended for use with
38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
39 %# you are the copyright holder for those contributions and you grant
40 %# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
41 %# royalty-free, perpetual, license to use, copy, create derivative
42 %# works based on those contributions, and sublicense and distribute
43 %# those contributions and any derivatives thereof.
45 %# END BPS TAGGED BLOCK }}}
46 <& /Admin/Elements/Header, Title => $title &>
47 <& /Admin/Elements/QueueTabs, id => $QueueObj->id,
48 QueueObj => $QueueObj,
49 current_tab => $current_tab,
51 <& /Elements/ListActions, actions => \@results &>
55 <FORM ACTION="<%$RT::WebPath%>/Admin/Queues/Modify.html" METHOD=POST>
57 <INPUT TYPE=HIDDEN NAME=id VALUE="new">
59 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>">
64 <&|/l&>Queue Name</&>:
66 <TD><INPUT name="Name" value="<% ($Create) ? "" : $QueueObj->Name %>"></TD>
69 <&|/l&>Description</&>:</TD><TD COLSPAN=3><INPUT name="Description" value="<% ($Create) ? "" : $QueueObj->Description %>" size=60></TD></TR>
72 <&|/l&>Reply Address</&>:
74 <INPUT name="CorrespondAddress" value="<% ($Create) ? "" : $QueueObj->CorrespondAddress %>">
75 <BR><font size="-1"><i><&|/l , $RT::CorrespondAddress&>(If left blank, will default to [_1])</&></i></font>
79 <&|/l&>Comment Address</&>: </TD><TD>
80 <INPUT NAME="CommentAddress" value="<% ($Create) ? "" : $QueueObj->CommentAddress %>">
81 <BR><font size="-1"><i><&|/l , $RT::CommentAddress&>(If left blank, will default to [_1])</&></i></font>
86 <&|/l&>Priority starts at</&>:
87 </TD><TD><INPUT NAME="InitialPriority" value="<% ($Create) ? "" : $QueueObj->InitialPriority %>">
90 <&|/l&>Over time, priority moves toward</&>:
91 </TD><TD><INPUT NAME="FinalPriority" value="<% ($Create) ? "" : $QueueObj->FinalPriority %>">
96 <&|/l&>Requests should be due in</&>:
98 <INPUT NAME="DefaultDueIn" VALUE="<% ($Create) ? "" : $QueueObj->DefaultDueIn%>"> <&|/l&>days</&>.
104 <TD COLSPAN=4><INPUT TYPE=HIDDEN NAME="SetEnabled" VALUE="1">
105 <INPUT TYPE=CHECKBOX NAME="Enabled" VALUE="1" <%$EnabledChecked%>> <&|/l&>Enabled (Unchecking this box disables this queue)</&><BR>
106 <& /Elements/Callback, QueueObj => $QueueObj, results => \@results, %ARGS &>
111 <& /Elements/Submit, Label => loc('Save Changes') &>
118 my $QueueObj = new RT::Queue($session{'CurrentUser'});
119 $QueueObj->Load($id);
120 my ($title, @results, $Disabled, $EnabledChecked);
121 $EnabledChecked = "CHECKED";
124 $current_tab = 'Admin/Queues/Modify.html?Create=1';
125 $title = loc("Create a queue");
128 my ($val, $msg) = $QueueObj->Create(Name => $Name);
129 delete $session{'create_in_queues'};
138 $QueueObj->Load($id) || $QueueObj->Load($Name) || Abort("Couldn't load queue '$Name'");
140 $title = loc('Editing Configuration for queue [_1]', $QueueObj->Name);
142 $current_tab = 'Admin/Queues/Modify.html?id='.$QueueObj->id;
144 if ($QueueObj->Id()) {
145 delete $session{'create_in_queues'};
146 my @attribs= qw(Description CorrespondAddress CommentAddress Name
147 InitialPriority FinalPriority DefaultDueIn);
149 @results = UpdateRecordObject( AttributesRef => \@attribs,
153 #we're asking about enabled on the web page but really care about disabled.
160 if ( ($SetEnabled) and ( $Disabled != $QueueObj->Disabled) ) {
161 my ($code, $msg) = $QueueObj->SetDisabled($Disabled);
162 push @results, loc('Enabled status: [_1]', loc_fuzzy($msg));
165 if ($QueueObj->Disabled()) {
170 $m->comp('/Elements/Callback', results => \@linkresults,
171 RecordObj => $QueueObj, ARGSRef => \%ARGS,
172 _CallbackName => 'ProcessLinks');
173 push @results, @linkresults;
183 $Description => undef
184 $CorrespondAddress => undef
185 $CommentAddress => undef
186 $InitialPriority => undef
187 $FinalPriority => undef
188 $DefaultDueIn => undef