[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Print.pm,1.8,1.9
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/C4 Print.pm,1.8,1.9 |
Date: |
Tue, 20 Aug 2002 15:40:14 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv22265/C4
Modified Files:
Print.pm
Log Message:
removed the printreserve routine. It has been replaced by printslip.
Index: Print.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Print.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Print.pm 14 Aug 2002 18:12:51 -0000 1.8
--- Print.pm 20 Aug 2002 22:40:12 -0000 1.9
***************
*** 72,114 ****
}
- sub printreserve {
- my($env, $branchname, $bordata, $itemdata)address@hidden;
- my $file=time;
- my $printer = $env->{'printer'};
- if ($printer eq "" || $printer eq 'nulllp') {
- open (PRINTER,">>/tmp/kohares");
- } else {
- open (PRINTER, "| lpr -P $printer") or die "Couldn't write to queue:$!\n";
- }
- my @da = localtime(time());
- my $todaysdate = "$da[2]:$da[1] $da[3]/$da[4]/$da[5]";
-
- #(1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf ("%0.2d",
$datearr[3]);
- my $slip = <<"EOF";
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Date: $todaysdate;
-
- ITEM RESERVED:
- $itemdata->{'title'} ($itemdata->{'author'})
- barcode: $itemdata->{'barcode'}
-
- COLLECT AT: $branchname
-
- BORROWER:
- $bordata->{'surname'}, $bordata->{'firstname'}
- card number: $bordata->{'cardnumber'}
- Phone: $bordata->{'phone'}
- $bordata->{'streetaddress'}
- $bordata->{'suburb'}
- $bordata->{'town'}
- $bordata->{'emailaddress'}
-
-
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- EOF
- print PRINTER $slip;
- close PRINTER;
- return $slip;
- }
sub printslip {
--- 72,75 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Print.pm,1.8,1.9,
Finlay Thompson <=