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
=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)