52dfb73c817739bad1050d71b8b9ba15a8431151
[freeside.git] / rt / webrt / Admin / Queues / index.html
1 <& /Admin/Elements/Header, Title => 'Admin queues' &>
2 <& /Admin/Elements/Tabs, current_tab => 'Admin/Queues/' &>
3
4
5 <& /Elements/TitleBoxStart, title => 'Select a queue' &>
6
7 <TABLE>
8 <TR>
9 <TD VALIGN=TOP>
10
11 <FORM METHOD=POST ACTION="<% $RT::WebPath %>/Admin/Queues/">
12
13 <input type="checkbox" name="FindDisabledQueues"> Include disabled queues in listing.
14 <BR>
15 <div align=right><input type=submit value="Go!"></div> 
16 </FORM>
17 </TD>
18 <TD VALIGN=TOP>
19 <UL>
20 % if ($session{'CurrentUser'}->HasSystemRight('AdminQueue')) {
21 <LI><A HREF="<%$RT::WebPath%>/Admin/Queues/Modify.html?Create=1">Create a new queue</A><BR><BR></LI>
22 </UL>
23 % }
24
25 <%$caption%><BR>
26 <UL>
27 %if ($queues->Count == 0) {
28 <LI> <i>No queues matching search criteria found.</i>
29 % }
30 %while ( $queue = $queues->Next) {
31 <LI><A HREF="Modify.html?id=<%$queue->id%>"><%$queue->Name%></a></LI>
32 %}
33
34 </UL>
35 </TD>
36 </TR>
37 </TABLE>
38 <& /Elements/TitleBoxEnd &>
39
40 <%INIT>
41 my ($queue, $caption);
42 my $queues = new RT::Queues($session{'CurrentUser'});
43 $queues->UnLimit();
44
45 if ($FindDisabledQueues) {
46         $queues->{'find_disabled_rows'} = 1;
47 }
48
49 </%INIT>
50 <%ARGS>
51 $FindDisabledQueues => 0
52 </%ARGS>