httemplate/view/cust_bill.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 #untaint invnum
   5 my($query) = $cgi->keywords;
   6 $query =~ /^((.+)-)?(\d+)$/;
   7 my $templatename = $2;
   8 my $invnum = $3;
   9
  10 my $conf = new FS::Conf;
  11
  12 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
  13 die "Invoice #$invnum not found!" unless $cust_bill;
  14 my $custnum = $cust_bill->getfield('custnum');
  15
  16 #my $printed = $cust_bill->printed;
  17
  18 print header('Invoice View', menubar(
  19   "Main Menu" => $p,
  20   "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  21 ));
  22
  23 print qq!<A HREF="${p}edit/cust_pay.cgi?$invnum">Enter payments (check/cash) against this invoice</A> | !
  24   if $cust_bill->owed > 0;
  25
  26 print qq!<A HREF="${p}misc/print-invoice.cgi?$invnum">Reprint this invoice</A>!;
  27 if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) {
  28   print qq! | <A HREF="${p}misc/email-invoice.cgi?$invnum">!.
  29         qq!Re-email this invoice</A>!;
  30 }
  31
  32 print qq! | <A HREF="${p}misc/fax-invoice.cgi?$invnum">Refax this invoice</A>!
  33   if ($conf->exists('hylafax'));
  34
  35 print '<BR><BR>';
  36
  37 if ( $conf->exists('invoice_latex') ) {
  38   my $link = "${p}view/cust_bill-pdf.cgi?";
  39   $link .= "$templatename-" if $templatename;
  40   $link .= "$invnum.pdf";
  41   print menubar(
  42     'View typeset invoice' => $link,
  43   ), '<BR><BR>';
  44 }
  45
  46 #false laziness with search/cust_bill_event.cgi
  47
  48 unless ( $templatename ) {
  49   print table(). '<TR><TH>Event</TH><TH>Date</TH><TH>Status</TH></TR>';
  50   foreach my $cust_bill_event (
  51     sort { $a->_date <=> $b->_date } $cust_bill->cust_bill_event
  52   ) {
  53     my $status = $cust_bill_event->status;
  54     $status .= ': '. encode_entities($cust_bill_event->statustext)
  55       if $cust_bill_event->statustext;
  56     my $part_bill_event = $cust_bill_event->part_bill_event;
  57     print '<TR><TD>'. $part_bill_event->event;
  58
  59     if (
  60       $part_bill_event->plan eq 'send_alternate'
  61       && $part_bill_event->plandata =~ /^templatename (.*)$/m
  62     ) {
  63       my $templatename = $1;
  64       print qq! ( <A HREF="${p}view/cust_bill.cgi?$templatename-$invnum">!.
  65             'view</A> | '.
  66             qq!<A HREF="${p}view/cust_bill-pdf.cgi?$templatename-$invnum.pdf">!.
  67             'view typeset</A> )';
  68     }
  69
  70     print '</TD><TD>'.
  71           time2str("%a %b %e %T %Y", $cust_bill_event->_date). '</TD><TD>'.
  72           $status. '</TD></TR>';
  73   }
  74   print '</TABLE><BR>';
  75 }
  76
  77 if ( $conf->exists('invoice_html') ) {
  78   print $cust_bill->print_html('', $templatename);
  79 } else {
  80   print '<PRE>', $cust_bill->print_text('', $templatename), '</PRE>';
  81 }
  82
  83         #formatting
  84         print <<END;
  85     </FONT>
  86   </BODY>
  87 </HTML>
  88 END
  89
  90 %>