-=head2 GetExpiryDate
-
- $expirydate = GetExpiryDate($categorycode, $dateenrolled);
-
-Calculate expiry date given a categorycode and starting date. Date argument must be in ISO format.
-Return date is also in ISO format.
-
-=cut
-
-sub GetExpiryDate {
- my ( $categorycode, $dateenrolled ) = @_;
- my $enrolments;
- if ($categorycode) {
- my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare("SELECT enrolmentperiod,enrolmentperioddate FROM categories WHERE categorycode=?");
- $sth->execute($categorycode);
- $enrolments = $sth->fetchrow_hashref;
- }
- # die "GetExpiryDate: for enrollmentperiod $enrolmentperiod (category '$categorycode') starting $dateenrolled.\n";
- my @date = split (/-/,$dateenrolled);
- if($enrolments->{enrolmentperiod}){
- return sprintf("%04d-%02d-%02d", Add_Delta_YM(@date,0,$enrolments->{enrolmentperiod}));
- }else{
- return $enrolments->{enrolmentperioddate};
- }
-}
-