next if $lang_string =~/css$/;
next if $lang_string =~/CVS$/;
next if $lang_string =~/\.txt$/i; #Don't read the readme.txt !
- next if $lang_string =~/img|images|famfam|sound/;
+ next if $lang_string =~/img|images|famfam|sound|pdf/;
push @lang_strings, $lang_string;
}
return (@lang_strings);
sub printpdf {
my ($basketgroup, $bookseller, $baskets, $orders, $GST) = @_;
# open the default PDF that will be used for base (1st page already filled)
- use FindBin qw( $Bin );
- open(my $fh, "$Bin/pdfformat/layout2pages.pdf") or die "$@";
- my @pdf = <$fh>;
- close($fh);
- my $pdf = PDF::API2->openScalar(join('', @pdf));
+ my $pdf_template = C4::Context->config('intrahtdocs') . '/' . C4::Context->preference('template') . '/pdf/layout2pages.pdf';
+ my $pdf = PDF::API2->open($pdf_template);
$pdf->pageLabel( 0, {
-style => 'roman',
} ); # start with roman numbering
sub printpdf {
my ($basketgroup, $bookseller, $baskets, $orders, $GST) = @_;
# open the default PDF that will be used for base (1st page already filled)
- use FindBin qw( $Bin );
- open(my $fh, "$Bin/pdfformat/layout3pages.pdf") or die "$@";
- my @pdf = <$fh>;
- close($fh);
- my $pdf = PDF::API2->openScalar(join('', @pdf));
+ my $pdf_template = C4::Context->config('intrahtdocs') . '/' . C4::Context->preference('template') . '/pdf/layout3pages.pdf';
+ my $pdf = PDF::API2->open($pdf_template);
$pdf->pageLabel( 0, {
-style => 'roman',
} ); # start with roman numbering