This commit was generated by cvs2svn to compensate for changes in r5562,
[freeside.git] / httemplate / view / cust_main / tickets.html
1 %
2 %  my( $cust_main ) = @_;
3 %
4 %  my $conf = new FS::Conf;
5 %  my $num = $conf->config('cust_main-max_tickets') || 10;
6 %
7 %  my @tickets = ();
8 %  unless ( $conf->config('ticket_system-custom_priority_field') ) {
9 %
10 %    @tickets =
11 %      @{ FS::TicketSystem->customer_tickets($cust_main->custnum, $num) };
12 %
13 %  } else {
14 %
15 %    foreach my $priority (
16 %      $conf->config('ticket_system-custom_priority_field-values'), ''
17 %    ) {
18 %      last if scalar(@tickets) >= $num;
19 %      push @tickets, 
20 %        @{ FS::TicketSystem->customer_tickets( $cust_main->custnum,
21 %                                               $num - scalar(@tickets),
22 %                                               $priority,
23 %                                             )
24 %         };
25 %    }
26 %
27 %  }
28 %
29 %
30
31 <A NAME="tickets"><FONT SIZE="+2">Tickets</FONT></A>
32 <BR>
33
34 (<A HREF="<% FS::TicketSystem->href_customer_tickets($cust_main->custnum) %>">View all tickets for this customer</A>)
35 (<A HREF="<% FS::TicketSystem->href_new_ticket($cust_main, join(', ', grep { $_ !~ /^(POST|FAX)$/ } $cust_main->invoicing_list ) ) %>">New ticket for this customer</A>)
36
37 <% include("/elements/table-grid.html") %>
38 % my $bgcolor1 = '#eeeeee';
39 %   my $bgcolor2 = '#ffffff';
40 %   my $bgcolor = '';
41 %
42
43
44 <TR>
45   <TH CLASS="grid" BGCOLOR="#cccccc">#</TH>
46   <TH CLASS="grid" BGCOLOR="#cccccc">Subject</TH>
47   <TH CLASS="grid" BGCOLOR="#cccccc">Priority</TH>
48   <TH CLASS="grid" BGCOLOR="#cccccc">Queue</TH>
49   <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH>
50 </TR>
51 % foreach my $ticket ( @tickets ) {
52 %     my $href = FS::TicketSystem->href_ticket($ticket->{id});
53 %     if ( $bgcolor eq $bgcolor1 ) {
54 %       $bgcolor = $bgcolor2;
55 %     } else {
56 %       $bgcolor = $bgcolor1;
57 %     }
58 %
59
60
61 <TR>
62
63   <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF=<%$href%>><% $ticket->{id} %></A></TD>
64
65   <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF=<%$href%>><% $ticket->{subject} %></A></TD>
66
67   <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $ticket->{content} || $ticket->{priority} %></TD>
68
69   <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $ticket->{name} %></TD>
70
71   <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $ticket->{status} %></TD>
72
73 </TR>
74 % } 
75
76
77 </TABLE>
78