C4/Print.pm

   1 package C4::Print; #assumes C4/Print.pm
   2
   3 use strict;
   4 require Exporter;
   5 #use C4::InterfaceCDK;
   6
   7 use vars qw($VERSION @ISA @EXPORT);
   8
   9 # set the version for version checking
  10 $VERSION = 0.01;
  11
  12 @ISA = qw(Exporter);
  13 @EXPORT = qw(&remoteprint &printreserve);
  14
  15 sub remoteprint {
  16   my ($env,$items,$borrower)=@_;
  17   #open (FILE,">/tmp/olwen");
  18   #print FILE "queue $env->{'queue'}";
  19   #close FILE;
  20   #debug_msg($env,"In print");
  21   my $file=time;
  22   my $queue = $env->{'queue'};
  23   if ($queue eq "" || $queue eq 'nulllp') {
  24     open (PRINTER,">/tmp/kohaiss");
  25   } else {
  26     open(PRINTER, "| lpr -P $queue") or die "Couldn't write to queue:$queue!\n";
  27   }
  28 #  print $queue;
  29   #open (FILE,">/tmp/$file");
  30   my $i=0;
  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";
  39   while ($items->[$i]){
  40 #    print $i;
  41     my $itemdata = $items->[$i];
  42     print PRINTER "$i $itemdata->{'title'}\r\n";
  43     print PRINTER "$itemdata->{'barcode'}";
  44     print PRINTER " "x15;
  45     print PRINTER "$itemdata->{'date_due'}\r\n";
  46     $i++;
  47   }
  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);
  51   }
  52   close PRINTER;
  53   #system("lpr /tmp/$file");
  54 }
  55
  56 sub printreserve {
  57   my($env,$resrec,$rbordata,$itemdata)=@_;
  58   my $file=time;
  59   my $queue = $env->{'queue'};
  60   #if ($queue eq "") {
  61     open (PRINTER,">/tmp/kohares");
  62   #} else {
  63   #  open (PRINTER, "| lpr -P $queue") or die "Couldn't write to queue:$!\n";
  64   #}
  65   print PRINTER "Collect at $resrec->{'branchcode'}\r\n\r\n";
  66   print PRINTER "$rbordata->{'surname'}; $rbordata->{'firstname'}\r\n";
  67   print PRINTER "$rbordata->{'cardnumber'}\r\n";
  68   print PRINTER "Phone: $rbordata->{'phone'}\r\n";
  69   print PRINTER "$rbordata->{'streetaddress'}\r\n";
  70   print PRINTER "$rbordata->{'suburb'}\r\n";
  71   print PRINTER "$rbordata->{'town'}\r\n";
  72   print PRINTER "$rbordata->{'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";
  77   if ($env->{'printtype'} eq "docket"){
  78     #print chr(27).char(105);
  79   }
  80   close PRINTER;
  81   #system("lpr /tmp/$file");
  82 }
  83 END { }       # module clean-up code here (global destructor)
  84
  85