projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make customer location columns available in various reports, #940
[freeside.git]
/
FS
/
FS
/
msg_template.pm
diff --git
a/FS/FS/msg_template.pm
b/FS/FS/msg_template.pm
index
e38346a
..
011ce24
100644
(file)
--- a/
FS/FS/msg_template.pm
+++ b/
FS/FS/msg_template.pm
@@
-484,13
+484,15
@@
Render a PDF and send it to the printer. OPTIONS are as for 'render'.
=cut
sub print {
=cut
sub print {
- my $file = render(@_);
- my @lpr = $conf->config('lpr');
- run ([@lpr, '-r'], '<', $file)
+ my( $self, %opt ) = @_;
+ my $file = $self->render(%opt);
+
+ my $lpr = $conf->config('lpr', $opt{'cust_main'}->agentnum );
+
+ run ( $lpr, '<', $file)
or die "lpr error:\n$?\n";
}
or die "lpr error:\n$?\n";
}
-
# helper sub for package dates
my $ymd = sub { $_[0] ? time2str('%Y-%m-%d', $_[0]) : '' };
# helper sub for package dates
my $ymd = sub { $_[0] ? time2str('%Y-%m-%d', $_[0]) : '' };