1 package C4::Print; #assumes C4/Print.pm
7 use vars qw($VERSION @ISA @EXPORT);
9 # set the version for version checking
13 @EXPORT = qw(&remoteprint &printreserve);
16 my ($env,$items,$borrower)=@_;
17 #open (FILE,">/tmp/olwen");
18 #print FILE "queue $env->{'queue'}";
20 #debug_msg($env,"In print");
22 my $queue = $env->{'queue'};
23 if ($queue eq "" || $queue eq 'nulllp') {
24 open (PRINTER,">/tmp/kohaiss");
26 open(PRINTER, "| lpr -P $queue") or die "Couldn't write to queue:$queue!\n";
29 #open (FILE,">/tmp/$file");
31 my $brdata = $env->{'brdata'};
32 print PRINTER "Horowhenua Library Trust\r\n";
33 # print PRINTER "$brdata->{'branchname'}\r\n";
34 print PRINTER "Phone: 368-1953\r\n";
35 print PRINTER "Fax: 367-9218\r\n";
36 print PRINTER "Email: renewals\@library.org.nz\r\n\r\n\r\n";
37 print PRINTER "$borrower->{'cardnumber'}\r\n";
38 print PRINTER "$borrower->{'title'} $borrower->{'initials'} $borrower->{'surname'}\r\n";
41 my $itemdata = $items->[$i];
42 print PRINTER "$i $itemdata->{'title'}\r\n";
43 print PRINTER "$itemdata->{'barcode'}";
45 print PRINTER "$itemdata->{'date_due'}\r\n";
48 print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
49 if ($env->{'printtype'} eq "docket"){
50 #print chr(27).chr(105);
53 #system("lpr /tmp/$file");
57 my($env, $branchname, $bordata, $itemdata)=@_;
59 my $printer = $env->{'printer'};
60 if ($printer eq "" || $printer eq 'nulllp') {
61 open (PRINTER,">/tmp/kohares");
63 open (PRINTER, "| lpr -P $printer") or die "Couldn't write to queue:$!\n";
65 print PRINTER "Collect at $branchname \r\n\r\n";
66 print PRINTER "$bordata->{'surname'}; $bordata->{'firstname'}\r\n";
67 print PRINTER "$bordata->{'cardnumber'}\r\n";
68 print PRINTER "Phone: $bordata->{'phone'}\r\n";
69 print PRINTER "$bordata->{'streetaddress'}\r\n";
70 print PRINTER "$bordata->{'suburb'}\r\n";
71 print PRINTER "$bordata->{'town'}\r\n";
72 print PRINTER "$bordata->{'emailaddress'}\r\n\r\n";
73 print PRINTER "$itemdata->{'barcode'}\r\n";
74 print PRINTER "$itemdata->{'title'}\r\n";
75 print PRINTER "$itemdata->{'author'}";
76 print PRINTER "\r\n\r\n\r\n\r\n\r\n\r\n\r\n";
79 END { } # module clean-up code here (global destructor)