explicit dep on PDF::WebKit
[freeside.git] / httemplate / search / report_svc_acct.html
1 <& /elements/header.html, $title &>
2
3 <FORM ACTION="svc_acct.cgi" METHOD="GET">
4 <INPUT TYPE="hidden" NAME="magic" VALUE="advanced">
5 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
6
7   <FONT CLASS="fsinnerbox-title"><% emt('Search options') %></FONT>
8   <TABLE CLASS="fsinnerbox">
9
10 % unless ( $custnum ) {
11     <& /elements/tr-select-agent.html,
12                    'curr_value'    => scalar( $cgi->param('agentnum') ),
13                    'disable_empty' => 0,
14     &>
15
16 %   # just this customer's domains?
17     <& /elements/tr-select-domain.html,
18                    'element_name'  => 'domsvc',
19                    'curr_value'    => scalar( $cgi->param('domsvc') ),
20                    'disable_empty' => 0,
21     &>
22 % }
23
24     <SCRIPT type="text/javascript">
25       function toggle(what) {
26         label = document.getElementById (what + '_label');
27         field = document.getElementById ( what + '_invert');
28         if (field.value == 1) {
29           field.value = 0;
30         } else {
31           field.value = 1;
32         }
33         if (field.value == 1) {
34           label.firstChild.nodeValue = 'Did not ' + label.firstChild.nodeValue;
35         }else{
36           text = label.firstChild.nodeValue;
37           label.firstChild.nodeValue = text.replace(/Did not /, '');
38         }
39       }
40     </SCRIPT>
41 %   foreach my $field (qw( last_login last_logout )) {
42 %     my $invert = $field."_invert";
43
44       <TR>
45         <TD>
46           <TABLE>
47             <TR>
48               <TH ALIGN="right" VALIGN="center" ID="<% $field."_label" %>">
49                 <% $label{$field} %>
50               </TH>
51               <TH>
52                 <INPUT NAME="<% $invert %>" ID="<% $invert %>" TYPE="hidden">
53                 <A HREF="javascript:void(0)" onClick="toggle('<% $field %>'); return false;"><% mt('Invert') |h %></A>
54               </TH>
55             </TR>
56           </TABLE>
57         </TD>
58         <TD>
59           <TABLE>
60             <& /elements/tr-input-beginning_ending.html,
61                           prefix   => $field,
62                           layout   => 'horiz',
63             &>
64           </TABLE>
65         </TD>
66       </TR>
67
68 %   }
69     
70     <& /elements/tr-selectmultiple-part_pkg.html &> 
71
72     <& /elements/tr-select-part_svc.html, svcdb=>'svc_acct' &> 
73
74 %   my $conf = new FS::Conf;
75 %   if ( $conf->exists('svc_acct-tower_sector') 
76 %        and FS::tower_sector->count > 0 ) {
77     <& /elements/tr-select-tower_sector.html,
78           'multiple'    => 1,
79           'label'       => 'Tower/Sector',
80     &>
81 %   }
82
83
84   </TABLE>
85   <BR>
86
87   <FONT CLASS="fsinnerbox-title"><% emt('Display options') %></FONT>
88   <TABLE CLASS="fsinnerbox">
89  
90 %   #move to /elements/tr-select-cust_pkg-fields if anything else needs it...
91     <TR>
92       <TH ALIGN="right"><% mt('Package fields') |h %></TH>
93       <TD>
94         <SELECT NAME="cust_pkg_fields">
95           <OPTION VALUE=""><% mt('(none)') |h %> 
96           <OPTION VALUE="setup,last_bill,bill,cancel"><% mt('Setup date | Last bill date | Next bill date | Cancel date') |h %> 
97         </SELECT>
98       </TD>
99     </TR>
100
101     <& /elements/tr-select-cust-fields.html &>
102                        
103   </TABLE>
104
105 <BR>
106 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
107
108 </FORM>
109
110 <& /elements/footer.html &>
111 <%init>
112
113 die "access denied"
114   unless $FS::CurrentUser::CurrentUser->access_right('Services: Accounts: Advanced search'); #?
115
116 my $title = mt('Account Report');
117
118 #false laziness w/report_cust_pkg.html
119 my $custnum = '';
120 if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
121   $custnum = $1;
122   my $cust_main = qsearchs({
123     'table'     => 'cust_main', 
124     'hashref'   => { 'custnum' => $custnum },
125     'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
126   }) or die "unknown custnum $custnum";
127   $title = mt("Account Report: [_1]", $cust_main->name);
128 }
129
130 </%init>
131 <%once>
132
133 my %label = (
134   'last_login'  => 'Last login',
135   'last_logout' => 'Last logout',
136 );
137
138 </%once>