[Koha-cvs] koha/members moremember.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/10/20 12:33:44

Modified files:
	members        : moremember.pl 

Log message:
	add borrower option to calculate expirydate in moremember template

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.28.2.2&r2=1.28.2.3

Patches:
Index: moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.28.2.2
retrieving revision 1.28.2.3
diff -u -b -r1.28.2.2 -r1.28.2.3
--- moremember.pl	20 Sep 2006 15:49:24 -0000	1.28.2.2
+++ moremember.pl	20 Oct 2006 12:33:44 -0000	1.28.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: moremember.pl,v 1.28.2.2 2006/09/20 15:49:24 toins Exp $
+# $Id: moremember.pl,v 1.28.2.3 2006/10/20 12:33:44 btoumi Exp $
 
 # script to do a borrower enquiry/bring up borrower details etc
 # Displays all the details about a borrower
@@ -72,7 +72,9 @@
 my $bornum=$input->param('bornum');
 #start the page and read in includes
 my $data=borrdata('',$bornum);
-
+my $reregistration=$input->param('reregistration');
+# re-reregistration function to automatic calcul of date expiry
+($data->{'dateexpiry'}=GetMembeReregistration($data->{'categorycode'},$bornum,$data->{'dateenrolled'}))if ($reregistration eq 'y');
 my (undef,undef,undef,$category_type)=getborrowercategory($data->{'categorycode'});
 $template->param($data->{'categorycode'} => 1); # in template <TMPL_IF name="I"> => instutitional (A for Adult & C for children)
 $data->{'dateenrolled'} = format_date($data->{'dateenrolled'});
@@ -229,6 +231,7 @@
 $template->param($data);
 $template->param(
 		 bornum          => $bornum,
+		 reregistration	 =>$reregistration,
 		 totalprice =>sprintf("%.2f",$totalprice),
 		 totaldue => sprintf("%.2f",$total),
 		 issueloop       => \@issuedata,