[Koha-cvs] koha/C4/Circulation Circ2.pm [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/04/13 06:25:12

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	minor tweak on enrolment period to set 'renewal' date.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Circulation/Circ2.pm.diff?only_with_tag=rel_2_2&tr1=1.87.2.13&tr2=1.87.2.14&r1=text&r2=text

Patches:
Index: koha/C4/Circulation/Circ2.pm
diff -u koha/C4/Circulation/Circ2.pm:1.87.2.13 koha/C4/Circulation/Circ2.pm:1.87.2.14
--- koha/C4/Circulation/Circ2.pm:1.87.2.13	Thu Apr  6 15:39:58 2006
+++ koha/C4/Circulation/Circ2.pm	Thu Apr 13 06:25:11 2006
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.13 2006/04/06 15:39:58 hdl Exp $
+# $Id: Circ2.pm,v 1.87.2.14 2006/04/13 06:25:11 kados Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -236,6 +236,12 @@
 	$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);
 }