minor tweak on enrolment period to set 'renewal' date.

This commit is contained in:
kados 2006-04-13 06:25:11 +00:00
parent 58864fd0b4
commit ebfe9d1503
1 changed files with 6 additions and 0 deletions

View File

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