X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_bill_event.cgi;h=90c89139c7106e91a563bbb84dbab187b3a525bb;hb=f0749e294656ac2615edaa59bbdb850eb3d20544;hp=253aa78ad4b56ab9a190947259f563c1bb2fe1fd;hpb=684a478c0f88e5bf6d1d3f32f4618089146b5709;p=freeside.git diff --git a/httemplate/search/cust_bill_event.cgi b/httemplate/search/cust_bill_event.cgi index 253aa78ad..90c89139c 100644 --- a/httemplate/search/cust_bill_event.cgi +++ b/httemplate/search/cust_bill_event.cgi @@ -1,86 +1,16 @@ -<% - -my $title = $cgi->param('failed') ? 'Failed invoice events' : 'Invoice events'; - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); - -##tie my %hash, 'Tie::DxHash', -#my %hash = ( -# _date => { op=> '>=', value=>$beginning }, -## i wish... -## _date => { op=> '<=', value=>$ending }, -#); -#$hash{'statustext'} = { op=> '!=', value=>'' } -# if $cgi->param('failed'); - -my $where = " WHERE cust_bill_event._date >= $beginning". - " AND cust_bill_event._date <= $ending"; -$where .= " AND statustext != '' AND statustext IS NOT NULL" - if $cgi->param('failed'); - -my $sql_query = { - 'table' => 'cust_bill_event', - #'hashref' => \%hash, - 'hashref' => {}, - 'select' => join(', ', - 'cust_bill_event.*', - 'part_bill_event.event', - 'cust_bill.custnum', - 'cust_bill._date AS cust_bill_date', - map "cust_main.$_", qw(last first company) - - ), - 'extra_sql' => "$where ORDER BY _date ASC", - 'addl_from' => 'LEFT JOIN part_bill_event USING ( eventpart ) '. - 'LEFT JOIN cust_bill USING ( invnum ) '. - 'LEFT JOIN cust_main USING ( custnum ) ', -}; - -my $count_sql = "select count(*) from cust_bill_event $where"; - -my $conf = new FS::Conf; - -my $failed = $cgi->param('failed'); - -my $html_init = join("\n", map { - ( my $action = $_ ) =~ s/_$//; - include('/elements/progress-init.html', - $_.'form', - [ 'action', 'beginning', 'ending', 'failed' ], - "../misc/${_}invoices.cgi", - { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... - $_, #key - ), - qq!
!, - qq!!, #not used though - qq!!, - qq!!, - qq!!, - qq!
! -} qw( print_ email_ fax_ ) ); - -my $menubar = [ - 'Main menu' => $p, - 'Re-print these events' => - "javascript:print_process()", - 'Re-email these events' => - "javascript:email_process()", - ]; - -push @$menubar, 'Re-fax these events' => - "javascript:fax_process()" - if $conf->exists('hylafax'); - -%><%= include( 'elements/search.html', +<% include( 'elements/search.html', 'title' => $title, 'html_init' => $html_init, 'menubar' => $menubar, 'name' => 'billing events', 'query' => $sql_query, 'count_query' => $count_sql, - 'header' => [ qw( Event Date Status ), + 'header' => [ 'Event', + 'Date', + 'Status', #'Inv #', 'Inv Date', 'Cust #', - 'Invoice', 'Cust #', + 'Invoice', + FS::UI::Web::cust_header(), ], 'fields' => [ 'event', @@ -99,11 +29,10 @@ push @$menubar, 'Re-fax these events' => time2str("%D", $_[0]->cust_bill_date). ')'; }, - sub { FS::cust_main::name($_[0]) }, - - + \&FS::UI::Web::cust_fields, ], - 'links' => [ + 'align' => 'lrlr'.FS::UI::Web::cust_aligns(), + 'links' => [ '', '', '', @@ -113,8 +42,126 @@ push @$menubar, 'Re-fax these events' => $template .= '-' if $template; [ "${p}view/cust_bill.cgi?$template", 'invnum']; }, - [ "${p}view/cust_main.cgi?", 'custnum' ], - [ "${p}view/cust_main.cgi?", 'custnum' ], + ( map { $_ ne 'Cust. Status' ? $link_cust : '' } + FS::UI::Web::cust_header() + ), + ], + 'color' => [ + '', + '', + '', + '', + FS::UI::Web::cust_colors(), + ], + 'style' => [ + '', + '', + '', + '', + FS::UI::Web::cust_styles(), ], ) %> +<%init> + +my $curuser = $FS::CurrentUser::CurrentUser; + +die "access denied" + unless $curuser->access_right('Billing event reports') + or $curuser->access_right('View customer billing events') + && $cgi->param('invnum') =~ /^(\d+)$/; + +my $title = $cgi->param('failed') + ? 'Failed invoice events' + : 'Invoice events'; + +my %search = (); + +if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { + $search{agentnum} = $1; +} + +($search{beginning}, $search{ending}) + = FS::UI::Web::parse_beginning_ending($cgi); + +if ( $cgi->param('failed') ) { + $search{failed} = '1'; +} + +if ( $cgi->param('part_bill_event.payby') =~ /^(\w+)$/ ) { + $search{payby} = $1; +} + +if ( $cgi->param('invnum') =~ /^(\d+)$/ ) { + $search{invnum} = $1; +} + +my $where = 'WHERE '. FS::cust_bill_event->search_sql_where( \%search ); + +my $join = 'LEFT JOIN part_bill_event USING ( eventpart ) '. + 'LEFT JOIN cust_bill USING ( invnum ) '. + 'LEFT JOIN cust_main USING ( custnum ) '; + +my $sql_query = { + 'table' => 'cust_bill_event', + 'select' => join(', ', + 'cust_bill_event.*', + 'part_bill_event.event', + 'cust_bill.custnum', + 'cust_bill._date AS cust_bill_date', + 'cust_main.custnum AS cust_main_custnum', + FS::UI::Web::cust_sql_fields(), + ), + 'hashref' => {}, + 'extra_sql' => $where, + 'order_by' => 'ORDER BY _date ASC', + 'addl_from' => $join, +}; + +my $count_sql = "SELECT COUNT(*) FROM cust_bill_event $join $where"; + +my $conf = new FS::Conf; + +my $html_init = ' + Invoice events are the deprecated, old-style actions taken o +n open invoices. See Reports->Billing events->Billing events for current event reports.

'; + +$html_init .= join("\n", map { + ( my $action = $_ ) =~ s/_$//; + include('/elements/progress-init.html', + $_.'form', + [ keys(%search) ], + "../misc/${_}invoice_events.cgi", + { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... + $_, #key + ), + qq!
!, + qq!!, #not used though + (map {qq!!} keys(%search)), + qq!
! +} qw( print_ email_ fax_ ) ); + +my $menubar = []; + +if ( $curuser->access_right('Resend invoices') ) { + + push @$menubar, 'Re-print these events' => + "javascript:print_process()", + 'Re-email these events' => + "javascript:email_process()", + ; + + push @$menubar, 'Re-fax these events' => + "javascript:fax_process()" + if $conf->exists('hylafax'); + +} + +my $link_cust = sub { + my $cust_bill_event = shift; + $cust_bill_event->cust_main_custnum + ? [ "${p}view/cust_main.cgi?", 'custnum' ] + : ''; +}; + +