blob: d8cd7f306dc1ec096dd002fd94fd0981cf57cf4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
% if ( $conf->exists('dashboard-toplist') ) {
<% include('/elements/table-grid.html') %>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = $bgcolor2;
% foreach my $line ( $conf->config('dashboard-toplist') ) {
%
% if ( $bgcolor eq $bgcolor1 ) {
% $bgcolor = $bgcolor2;
% } else {
% $bgcolor = $bgcolor1;
% }
% if ( $line =~ /^\s*cust_main:\s*(\d+)\s*$/ ) { #customer line
% my $custnum = $1;
% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
% if ( $cust_main ) {
<TR>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
<A HREF="view/cust_main.cgi?<% $custnum %>"><% $cust_main->name %></A>
</TD>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
<% include('/elements/mcp_lint.html', 'cust_main'=>$cust_main) %>
</TD>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ALIGN="right">
<FONT SIZE="-1"><A HREF="<% FS::TicketSystem->href_new_ticket($cust_main, join(', ', grep { $_ !~ /^(POST|FAX)$/ } $cust_main->invoicing_list ) ) %>">(new ticket)</A></FONT>
</TD>
% foreach my $priority ( @custom_priorities, '' ) {
% my $num =
% FS::TicketSystem->num_customer_tickets($custnum,$priority);
% my $ahref = '';
% $ahref= '<A HREF="'.
% FS::TicketSystem->href_customer_tickets($custnum,$priority).
% '">'
% if $num;
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ALIGN="right">
<% $ahref.$num %></A>
</TD>
% }
</TR>
% } else {
<TR>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
Unknown customer number <% $custnum %>
</TD>
</TR>
% }
%
% } elsif ( $line =~ /^\-\-+$/ ) { #divider
%
<TR>
<TH CLASS="grid" COLSPAN="<% scalar(@custom_priorities) + 4 %>"></TH>
</TR>
% next;
%
% } elsif ( $line =~ /^\s*$/ ) {
<TR>
<TD CLASS="grid" COLSPAN="<% scalar(@custom_priorities) + 4 %>" BGCOLOR="<% $bgcolor %>"> </TD>
</TR>
% } elsif ( $line =~ /^\S/ ) { #label line
<TR>
<TH CLASS="grid" BGCOLOR="#cccccc"><% $line %></TH>
<TH CLASS="grid" BGCOLOR="#cccccc">Lint</TH>
<TH CLASS="grid" BGCOLOR="#cccccc"></TH>
% foreach my $priority ( @custom_priorities, '' ) {
<TH CLASS="grid" BGCOLOR="#cccccc">
<% $priority || '<i>(none)</i>'%>
</TH>
% }
</TR>
% } else { #regular line
<TR>
<TD CLASS="grid" COLSPAN="<% scalar(@custom_priorities) + 4 %>" BGCOLOR="<% $bgcolor %>"><% $line %></TD>
</TR>
% }
%
% }
</TABLE>
<BR>
% }
<%init>
my $conf = new FS::Conf;
#false laziness w/httemplate/search/cust_main.cgi... care if
# custom_priority_field becomes anything but a local hack...
my @custom_priorities = ();
if ( $conf->config('ticket_system-custom_priority_field')
&& @{[ $conf->config('ticket_system-custom_priority_field-values') ]} ) {
@custom_priorities =
$conf->config('ticket_system-custom_priority_field-values');
}
</%init>
|
