blob: 084dcc1c48e4a393aa2fd74c5724d0df10f479a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl -Tw
#
# just a kludge for now, since this duplicates in a way it shouldn't stuff from
# Bill.pm (like $lpr) ivan@sisd.com 98-jun-16
use strict;
use CGI::Base qw(:DEFAULT :CGI);
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearchs);
use FS::Invoice;
my($lpr) = "|lpr -h";
my($cgi) = new CGI::Base;
$cgi->get;
&cgisuidsetup($cgi);
#untaint invnum
$QUERY_STRING =~ /^(\d*)$/;
my($invnum)=$1;
my($cust_bill)=qsearchs('cust_bill',{'invnum'=>$invnum});
die "Can't find invoice!\n" unless $cust_bill;
bless($cust_bill,"FS::Invoice");
open(LPR,$lpr) or die "Can't open $lpr: $!";
print LPR $cust_bill->print_text; #( date )
close LPR
or die $! ? "Error closing $lpr: $!"
: "Exit status $? from $lpr";
my($custnum)=$cust_bill->getfield('custnum');
$cgi->redirect("../view/cust_main.cgi?$custnum#history");
sub idiot {
my($error)=@_;
CGI::Base::SendHeaders(); # one guess
print <<END;
<HTML>
<HEAD>
<TITLE>Error printing invoice</TITLE>
</HEAD>
<BODY>
<CENTER>
<H4>Error printing invoice</H4>
</CENTER>
Your update did not occur because of the following error:
<P><B>$error</B>
</BODY>
</HTML>
END
exit;
}
|