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); }