use utf8;
use Encode;
use File::Copy;
+use File::Temp qw/ tempfile tempdir /;
###############################################################################
my $dbh;
#Check if we are creating a preview or a real bill
if($preview eq 'on'){
- $filename="$path/tmp.pdf";
+ $filename="$path/".tempfile( SUFFIX => ".pdf", );
}
####################################################################
#Prepare DATA from arrays
if ($preview ne 'on'){
&fillBill($path.$grp,$name,$no,$grp);
}
+ if($preview eq 'on'){
+ return $filename;
+ }
return '0';
}