X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cust_bill_void.html;fp=httemplate%2Fsearch%2Freport_cust_bill_void.html;h=cb13b785a24de3b5e4699d42061365178c7bc4a2;hp=0000000000000000000000000000000000000000;hb=58f8f045141e56c38dd47bf7b9f33094236c0d0a;hpb=523a0d904238cd573e4ae6a4a12dfcfea37cd703 diff --git a/httemplate/search/report_cust_bill_void.html b/httemplate/search/report_cust_bill_void.html new file mode 100644 index 000000000..cb13b785a --- /dev/null +++ b/httemplate/search/report_cust_bill_void.html @@ -0,0 +1,102 @@ +<& /elements/header.html, mt($title, @title_arg) &> + +
+ +<& /elements/footer.html &> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('List invoices'); + +my $conf = new FS::Conf; + +my $title = 'Voided Invoice Report'; +#false laziness w/report_cust_pkg.html +my @title_arg = (); + +my $custnum = ''; +my $cust_main = ''; +if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { + $custnum = $1; + $cust_main = qsearchs({ + 'table' => 'cust_main', + 'hashref' => { 'custnum' => $custnum }, + 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, + }) or die "unknown custnum $custnum"; + $title .= ': [_1]'; + push @title_arg, $cust_main->name; +} + +%init>