projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#6223: Billing process - pending packages - feature request [order quotation on...
[freeside.git]
/
httemplate
/
search
/
cust_tax_exempt.cgi
diff --git
a/httemplate/search/cust_tax_exempt.cgi
b/httemplate/search/cust_tax_exempt.cgi
index
b77cd0e
..
91b2001
100644
(file)
--- a/
httemplate/search/cust_tax_exempt.cgi
+++ b/
httemplate/search/cust_tax_exempt.cgi
@@
-1,4
+1,4
@@
-<
% include( 'elements/search.html'
,
+<
& elements/search.html
,
'title' => 'Legacy tax exemptions',
'name' => 'legacy tax exemptions',
'query' => $query,
'title' => 'Legacy tax exemptions',
'name' => 'legacy tax exemptions',
'query' => $query,
@@
-7,31
+7,31
@@
'header' => [
'#',
'Month',
'header' => [
'#',
'Month',
+ 'Inserted',
'Amount',
'Amount',
- 'Date',
FS::UI::Web::cust_header(),
],
'fields' => [
FS::UI::Web::cust_header(),
],
'fields' => [
- 'exempt
pkg
num',
+ 'exemptnum',
sub { $_[0]->month. '/'. $_[0]->year; },
sub { $_[0]->month. '/'. $_[0]->year; },
+ sub { my $h = $_[0]->h_search('insert');
+ $h ? time2str('%L/%d/%Y', $h->history_date ) : ''
+ },
sub { $money_char. $_[0]->amount; },
sub { $money_char. $_[0]->amount; },
- sub { time2str('%b %d %Y', shift->_date ) },
-
\&FS::UI::Web::cust_fields,
],
'links' => [
'',
'',
'',
\&FS::UI::Web::cust_fields,
],
'links' => [
'',
'',
'',
-
'',
( map { $_ ne 'Cust. Status' ? $clink : '' }
FS::UI::Web::cust_header()
),
],
'',
( map { $_ ne 'Cust. Status' ? $clink : '' }
FS::UI::Web::cust_header()
),
],
- 'align' => 'rrr
lrc'.FS::UI::Web::cust_aligns(), # 'rlrrrc'
,
+ 'align' => 'rrr
r'.FS::UI::Web::cust_aligns()
,
'color' => [
'',
'',
'color' => [
'',
'',
@@
-46,25
+46,22
@@
'',
FS::UI::Web::cust_styles(),
],
'',
FS::UI::Web::cust_styles(),
],
- )
-
%
>
+
+
&
>
<%init>
<%init>
-my $join_cust = "
- LEFT JOIN cust_main USING ( custnum )
-";
+my $join_cust = FS::UI::Web::join_cust_main('cust_tax_exempt');
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('View customer tax exemptions');
my @where = ();
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('View customer tax exemptions');
my @where = ();
-my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
-if ( $beginning || $ending ) {
- push @where, "_date >= $beginning",
- "_date <= $ending";
- #"payby != 'COMP';
-}
+#my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
+#if ( $beginning || $ending ) {
+# push @where, "_date >= $beginning",
+# "_date <= $ending";
+#}
if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
push @where, "agentnum = $1";
if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
push @where, "agentnum = $1";
@@
-74,6
+71,13
@@
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
push @where, "cust_main.custnum = $1";
}
push @where, "cust_main.custnum = $1";
}
+#prospect active inactive suspended cancelled
+if ( grep { $cgi->param('status') eq $_ } FS::cust_main->statuses() ) {
+ my $method = $cgi->param('status'). '_sql';
+ #push @where, $class->$method();
+ push @where, FS::cust_main->$method();
+}
+
if ( $cgi->param('out') ) {
push @where, "
if ( $cgi->param('out') ) {
push @where, "