# Copyright 2000-2002 Katipo Communications
# 2006 SAN-OP
-# 2007 BibLibre, Paul POULAIN
+# 2007-2010 BibLibre, Paul POULAIN
#
# This file is part of Koha.
#
$input{return_overdue} = 1 if ($duedate and $duedate lt $today->output('iso'));
push( @inputloop, \%input );
- my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrower->{'borrowernumber'} );
- if ($fines > 0) {
- $template->param( fines => sprintf("%.2f",$fines) );
- $template->param( fineborrowernumber => $borrower->{'borrowernumber'} );
+ if ( C4::Context->preference("FineNotifyAtCheckin") ) {
+ my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrower->{'borrowernumber'} );
+ if ($fines > 0) {
+ $template->param( fines => sprintf("%.2f",$fines) );
+ $template->param( fineborrowernumber => $borrower->{'borrowernumber'} );
+ }
+ }
+
+ if (C4::Context->preference("WaitingNotifyAtCheckin") ) {
+ #Check for waiting holds
+ my @reserves = GetReservesFromBorrowernumber($borrower->{'borrowernumber'});
+ my $waiting_holds;
+ foreach my $num_res (@reserves) {
+ if ( $num_res->{'found'} eq 'W' && $num_res->{'branchcode'} eq $userenv_branch) {
+ $waiting_holds++;
+ }
+ }
+ if ($waiting_holds > 0) {
+ $template->param(
+ waiting_holds => $waiting_holds,
+ holdsborrowernumber => $borrower->{'borrowernumber'},
+ holdsfirstname => $borrower->{'firstname'},
+ holdssurname => $borrower->{'surname'},
+ );
+ }
}
-
}
elsif ( !$messages->{'BadBarcode'} ) {
$input{duedate} = 0;
$ri{itembiblionumber} = $biblio->{'biblionumber'};
$ri{itemtitle} = $biblio->{'title'};
$ri{itemauthor} = $biblio->{'author'};
+ $ri{itemcallnumber} = $biblio->{'itemcallnumber'};
$ri{itemtype} = $biblio->{'itemtype'};
$ri{itemnote} = $biblio->{'itemnotes'};
$ri{ccode} = $biblio->{'ccode'};