[Koha-cvs] CVS: koha/members memberentry.pl,1.5.2.3,1.5.2.4

[Paul POULAIN]

Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28891/members

Modified Files:
      Tag: rel_2_2
	memberentry.pl 
Log Message:
* better management of joining & expiry dates :
	- dates can be manually typed when adding a borrower.
	- Empty fields are automatically calculated (joining = today & expiry date calculated from borrower category)
	- Expiry date can be modified
* checking expiry date when trying to issue a book & forbidding issuing when expiry date reached. ** IMPORTANT ** This check was not done before. Thus, you may be unable to issue books where you could before. You can update your database borrower by borrower or with the following SQL command on the server : "update borrowers set expiry='2005-31-12'". You can limit the update to a borrower category with "update borrowers set expiry='2005-31-12' where categorycode='A'" (all SQL commands must be typed without any ")


Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/memberentry.pl,v
retrieving revision 1.5.2.3
retrieving revision 1.5.2.4
diff -C2 -r1.5.2.3 -r1.5.2.4
*** memberentry.pl	25 Mar 2005 17:03:37 -0000	1.5.2.3
--- memberentry.pl	19 May 2005 21:52:46 -0000	1.5.2.4
***************
*** 262,267 ****
  				relshiploop	=> \@relshipdata,
  				"title_".$data->{'title'} => " SELECTED ",
! 				dateenrolled	=> $data->{'dateenrolled'},
! 				expiry		=> $data->{'expiry'},
  				cardnumber	=> $cardnumber,
  				dateofbirth	=> $data->{'dateofbirth'},
--- 262,267 ----
  				relshiploop	=> \@relshipdata,
  				"title_".$data->{'title'} => " SELECTED ",
! 				joining	=> format_date($data->{'dateenrolled'}),
! 				expiry		=> format_date($data->{'expiry'}),
  				cardnumber	=> $cardnumber,
  				dateofbirth	=> $data->{'dateofbirth'},