[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Members.pm [dev_week]
From: |
Cindy Murdock |
Subject: |
[Koha-cvs] koha/C4 Members.pm [dev_week] |
Date: |
Thu, 19 Apr 2007 15:02:27 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Cindy Murdock <clm> 07/04/19 15:02:27
Modified files:
C4 : Members.pm
Log message:
Made modmember sub calulate expiry date if nonexistent.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.6.2.6&r2=1.6.2.6.2.1
Patches:
Index: Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.6.2.6
retrieving revision 1.6.2.6.2.1
diff -u -b -r1.6.2.6 -r1.6.2.6.2.1
--- Members.pm 3 Apr 2006 23:43:20 -0000 1.6.2.6
+++ Members.pm 19 Apr 2007 15:02:27 -0000 1.6.2.6.2.1
@@ -99,6 +99,17 @@
my (%data) = @_;
my $dbh = C4::Context->dbh;
$data{'dateofbirth'}=format_date_in_iso($data{'dateofbirth'});
+ # this doesn't save joining date to the db, but if joining date doesn't
exist it calculates expiry from today
+ $data{'joining'} = &ParseDate("today") unless $data{'joining'};
+ $data{'joining'}=format_date_in_iso($data{'joining'});
+ # set expiry date if it doesn't exist
+ if ( (!$data{'expiry'}) || $data{'expiry'} eq '0000-00-00' ||
$data{'expiry'} eq 'NULL' || $data{'expiry'} eq '') {
+ my $sth = $dbh->prepare("select enrolmentperiod from categories
where categorycode=?");
+ $sth->execute($data{'categorycode'});
+ my ($enrolmentperiod) = $sth->fetchrow;
+ $enrolmentperiod = 12 unless ($enrolmentperiod);
+ $data{'expiry'} = &DateCalc($data{'joining'},"$enrolmentperiod
years");
+ }
$data{'expiry'}=format_date_in_iso($data{'expiry'});
my $query="update borrowers set
title='$data{'title'}',expiry='$data{'expiry'}',
cardnumber='$data{'cardnumber'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
- [Koha-cvs] koha/C4 Members.pm [dev_week],
Cindy Murdock <=