I have a Perl format that doesn't want to print the top of the report.
open EOS_REPORT, "| lp -d lex_text" or die "Cannot open EOS report for + printing: $!"; # lots of code to assemble data write EOS_REPORT; close EOS_REPORT; format EOS_REPORT_TOP = @>>>>>>>>>>>>>>>>>>> 'Page: ' . $% @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| "End of day register report" @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| $today Run by: @<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>>>>>>>>>>>>>>> $name, "Terminal: ".$hostname . format EOS_REPORT = Total Sales --------------- @>>>>>>>>>>>>>> $total Total Cash Total Account Total Check --------------- --------------- --------------- @>>>>>>>>>>>>>> @>>>>>>>>>>>>>> @>>>>>>>>>>>>>> $tcash, $taccount, $tcheck CC Manual Auth Total Credit --------------- --------------- @>>>>>>>>>>>>>> @>>>>>>>>>>>>>> $tcc_man_auth, $tcredit @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| "Price Overrides" @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| "(Negative quantities are overrides on refunds)" Clerk SKU Old price New price ------------------- -------------------- ---------- ---------- ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~ $override_report .
I can't find anything that I've changed, but the top of the report used to print and now it doesn't. I don't know formats terribly well, so I don't know what to look for. I haven't found any references anywhere which indicate what the problem might be.
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
In reply to Top of format won't print by Ovid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |