[Koha-cvs] Changes to koha/circ/circulation.pl [rel_2_2]

[Henri-Damien LAURENT]

Index: koha/circ/circulation.pl
diff -u koha/circ/circulation.pl:1.81.2.5 koha/circ/circulation.pl:1.81.2.6
--- koha/circ/circulation.pl:1.81.2.5	Tue Jul 19 18:50:49 2005
+++ koha/circ/circulation.pl	Tue Nov 29 14:50:29 2005
@@ -35,6 +35,7 @@
 use C4::Koha;
 use HTML::Template;
 use C4::Date;
+use Date::Manip;
 
 #
 # PARAMETERS READING
@@ -123,6 +124,13 @@
 if ($borrowernumber) {
 	$borrower = getpatroninformation(\%env,$borrowernumber,0);
 	my ($od,$issue,$fines)=borrdata2(\%env,$borrowernumber);
+	warn $borrower->{'expiry'};
+ 	my $warningdate = DateCalc($borrower->{'expiry'},"- ".C4::Context->preference('NotifiyBorrowerDeparture')."  days");
+	my $warning=Date_Cmp(ParseDate("today"),$warningdate);
+	if ($warning>0){ 
+		#borrowercard expired
+		$template->param(warndeparture=>$warning);
+	}
 	$template->param(overduecount => $od,
 							issuecount => $issue,
 							finetotal => $fines);