gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

copying printslip from circulation.pl

This commit is contained in:
tipaul 2004-05-03 09:26:12 +00:00
parent 12bfd66995
commit 12d7e38cd5
1 changed files with 32 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
C4/Print.pm
View File

@ -76,7 +76,6 @@ sub remoteprint {
my ($env,$items,$borrower)=@_;
(return) unless (C4::Context->boolean_preference('printcirculationslips'));
my $file=time; # FIXME - Not used
my $queue = $env->{'queue'};
# FIXME - If 'queue' is undefined or empty, then presumably it should
# mean "use the default queue", whatever the default is. Presumably
@ -170,28 +169,42 @@ EOF
=item printslip
&printslip($env, $text)
Prints the string C<$text> to a printer. C<$env-E<gt>{queue}>
specifies the queue to print to.
If C<$env-E<gt>{queue}> is empty or set to C<nulllp>, C<&printslip>
will print to the file F</tmp/kohares>.
&printslip($env, $borrowernumber)
print a slip for the given $borrowernumber
=cut
#'
# FIXME - There's also a &printslip in circ/circulation.pl
sub printslip {
my($env, $slip)=@_;
my $printer = $env->{'printer'};
(return) unless (C4::Context->boolean_preference('printcirculationslips'));
if ($printer eq "" || $printer eq 'nulllp') {
open (PRINTER,">/tmp/kohares");
} else {
open (PRINTER, "| lpr -P $printer >/dev/null") or die "Couldn't write to queue:$!\n";
}
print PRINTER $slip;
close PRINTER;
my ($env,$borrowernumber)=@_;
my ($borrower, $flags) = getpatroninformation($env,$borrowernumber,0);
$env->{'todaysissues'}=1;
my ($borrowerissues) = currentissues($env, $borrower);
$env->{'nottodaysissues'}=1;
$env->{'todaysissues'}=0;
my ($borroweriss2)=currentissues($env, $borrower);
$env->{'nottodaysissues'}=0;
my $i=0;
my @issues;
foreach (sort {$a <=> $b} keys %$borrowerissues) {
$issues[$i]=$borrowerissues->{$_};
my $dd=$issues[$i]->{'date_due'};
#convert to nz style dates
#this should be set with some kinda config variable
my @tempdate=split(/-/,$dd);
$issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]";
$i++;
}
foreach (sort {$a <=> $b} keys %$borroweriss2) {
$issues[$i]=$borroweriss2->{$_};
my $dd=$issues[$i]->{'date_due'};
#convert to nz style dates
#this should be set with some kinda config variable
my @tempdate=split(/-/,$dd);
$issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]";
$i++;
}
remoteprint($env,\@issues,$borrower);
}
END { } # module clean-up code here (global destructor)