[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 <address@hidden> 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 address@hidden
@@ -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);
 }