1 <& /elements/header.html, mt('Voided Invoice'), menubar(
2 emt("View this customer (#[_1])",$display_custnum) => "${p}view/cust_main.cgi?$custnum",
5 <SCRIPT TYPE="text/javascript">
6 function areyousure(href, message) {
7 if (confirm(message) == true)
8 window.location.href = href;
11 <% areyousure_link("${p}misc/unvoid-cust_bill_void.html?invnum=". $cust_bill_void->invnum,
12 emt('Are you sure you want to unvoid this invoice?'),
13 emt('Unvoid this invoice'), #tooltip
14 emt('Unvoid this invoice') #link
20 % #if ( $conf->exists('invoice_latex') ) {
22 %# <A HREF="<% $p %>view/cust_bill-pdf.cgi?<% $link %>"><% mt('View typeset invoice PDF') |h %></A>
26 %#something very big and obvious showing its voided...
27 <DIV STYLE="color:#FF0000; font-size:1000%; font-weight:bold; z-index:100;
28 position: absolute; top: 300px; left: 130px;
29 zoom: 1; filter: alpha(opacity=25); opacity: 0.25;
32 % if ( $conf->exists('invoice_html') ) {
33 <% join('', $cust_bill_void->print_html(\%opt) ) %>
35 <PRE><% join('', $cust_bill_void->print_text(\%opt) ) %></PRE>
38 <& /elements/footer.html &>
41 my $curuser = $FS::CurrentUser::CurrentUser;
44 unless $curuser->access_right('View invoices');
47 my($query) = $cgi->keywords;
48 if ( $query =~ /^(\d+)$/ ) {
51 $invnum = $cgi->param('invnum');
54 my $conf = new FS::Conf;
57 'unsquelch_cdr' => $conf->exists('voip-cdr_email'),
60 my $cust_bill_void = qsearchs({
61 'select' => 'cust_bill_void.*',
62 'table' => 'cust_bill_void',
63 #'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
64 'hashref' => { 'invnum' => $invnum },
65 #'extra_sql' => ' AND '. $curuser->agentnums_sql,
67 die "Voided invoice #$invnum not found!" unless $cust_bill_void;
69 my $custnum = $cust_bill_void->custnum;
70 my $display_custnum = $cust_bill_void->cust_main->display_custnum;
72 #my $link = "invnum=$invnum";
75 my ($url,$msg,$title,$label) = (shift,shift,shift,shift);
76 '<A HREF="javascript:areyousure(\''.$url.'\',\''.$msg.'\')" TITLE="'.$title.'">'.$label.'</A>';