road to 1.3.2. (forgotten plugin launcher)

[koha.git] / memberentry.pl

diff --git a/memberentry.pl b/memberentry.pl
index ec95459..ad2c3bc 100755 (executable)
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -33,9 +33,7 @@ use HTML::Template;
 
 my $input = new CGI;
 
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'memberentry.tmpl', theme => $theme );
-my $template = HTML::Template->new(filename => $tmpldata{'path'}, die_on_bad_params => 0);
+my $template = gettemplate("members/memberentry.tmpl");
 
 my $member=$input->param('bornum');
 if ($member eq ''){
@@ -95,8 +93,7 @@ if ($delete){
       my $temp1 = $weightings[$i];     # read weightings, left to right, 1 char at a time
       my $temp2 = substr($cardnumber,$i,1);    # sequence left to right, 1 char at a time
   #print "$temp2<br>";
-      $sum = $sum + ($temp1*$temp2);   # mult each char 1-7 by its corresponding weighting
-                                       # FIXME - +=
+      $sum += $temp1*$temp2;   # mult each char 1-7 by its corresponding weighting
       $i++;                            # increment counter
     }
     my $rem = ($sum%11);                       # remainder of sum/11 (eg. 9999999/11, remainder=2)
@@ -131,7 +128,7 @@ if ($delete){
   my $ethnicitycategoriescount=$#{$categories};
   my $ethcatpopup;
   if ($ethnicitycategoriescount>=0) {
-       $ethcatpopup = popup_menu(-name=>'ethnicity',
+       $ethcatpopup = CGI::popup_menu(-name=>'ethnicity',
                                -values=>$categories,
                                -default=>$data->{'ethnicity'},
                                -labels=>$labels);