[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       => address@hidden,