From ebfe9d1503163b958c8eba8f01f770f3d7ee347a Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Thu, 13 Apr 2006 06:25:11 +0000
Subject: [PATCH] minor tweak on enrolment period to set 'renewal' date.

---
 C4/Circulation/Circ2.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index e1fdd2b026..e0309fa22e 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -236,6 +236,12 @@ sub getpatroninformation {
 	$sth->finish;
 	$borrower->{'flags'}=$flags;
 	$borrower->{'authflags'} = $accessflagshash;
+
+	# find out how long the membership lasts
+	my $sth=$dbh->prepare("select enrolmentperiod from categories where categorycode = ?");
+	$sth->execute($borrower->{'categorycode'});
+	my $enrolment = $sth->fetchrow;
+	$borrower->{'enrolmentperiod'} = $enrolment;
 	return ($borrower); #, $flags, $accessflagshash);
 }