$issuingimpossible{NO_MORE_RENEWALS} = 1;
}
else {
-
- # $needsconfirmation{RENEW_ISSUE} = 1;
+ $needsconfirmation{RENEW_ISSUE} = 1;
}
}
elsif ($issue->{borrowernumber}) {
"$res->{'reservedate'} : $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'})";
}
}
- if ( C4::Context->preference("LibraryName") eq "Horowhenua Library Trust" )
- {
+ if ( C4::Context->preference("LibraryName") eq "Horowhenua Library Trust" ) {
if ( $borrower->{'categorycode'} eq 'W' ) {
my %issuingimpossible;
return ( \%issuingimpossible, \%needsconfirmation );
- }
- else {
+ } else {
return ( \%issuingimpossible, \%needsconfirmation );
}
- }
- else {
+ } else {
return ( \%issuingimpossible, \%needsconfirmation );
}
}
my $datedue = time + ($loanlength) * 86400;
my @datearr = localtime($datedue);
my $dateduef =
- ( 1900 + $datearr[5] ) . "-"
- . ( $datearr[4] + 1 ) . "-"
- . $datearr[3];
+ sprintf("%04d-%02d-%02d", 1900 + $datearr[5], $datearr[4] + 1, $datearr[3]);
if ($date) {
$dateduef = $date;
}
- $dateduef=CheckValidDatedue($dateduef,$item->{'itemnumber'},C4::Context->userenv->{'branch'});
+ $dateduef=CheckValidDatedue($dateduef,$item->{'itemnumber'},C4::Context->userenv->{'branch'});
# if ReturnBeforeExpiry ON the datedue can't be after borrower expirydate
if ( C4::Context->preference('ReturnBeforeExpiry')
&& $dateduef gt $borrower->{dateexpiry} )
#borrowercard expired or nearly expired, warn the librarian
$template->param(
flagged => "1",
- warndeparture => "1",
- renewaldate => "$renew_year-$renew_month-$renew_day"
+ warndeparture => format_date($borrower->{dateexpiry}),
+ renewaldate => format_date("$renew_year-$renew_month-$renew_day")
);
}
# check for NotifyBorrowerDeparture
Date_to_Days(Add_Delta_Days($warning_year,$warning_month,$warning_day,- C4::Context->preference('NotifyBorrowerDeparture'))) <
Date_to_Days( $today_year, $today_month, $today_day )) )
{
- $template->param("warndeparture" => 1);
+ $template->param("warndeparture" => format_date($borrower->{dateexpiry}));
}
$template->param(
overduecount => $od,