X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Fmemberentry.pl;h=9a3dd18bfc2bfa6daa9989c6e6e6e57762c0a10f;hb=d3fcc8b973090e522b284bc8b70eaf84b607bddd;hp=58f5cf14a7cda1d4b2064ccf7376777f77663953;hpb=3ce542ce2668770a5669d2fb98b666f42a5bd388;p=koha.git diff --git a/members/memberentry.pl b/members/memberentry.pl index 58f5cf14a7..9a3dd18bfc 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -101,6 +101,8 @@ my @field_check=split(/\|/,$check_BorrowerMandatoryField); foreach (@field_check) { $template->param( "mandatory$_" => 1); } +# we'll need this, later. +my $dateofbirthmandatory = (scalar grep {$_ eq "dateofbirth"} @field_check) ? 1 : 0; # function to designate unwanted fields my $check_BorrowerUnwantedField=C4::Context->preference("BorrowerUnwantedField"); @field_check=split(/\|/,$check_BorrowerUnwantedField); @@ -264,14 +266,14 @@ if ($op eq 'save' || $op eq 'insert'){ if (checkcardnumber($newdata{cardnumber},$newdata{borrowernumber})){ push @errors, 'ERROR_cardnumber'; } - my $dateofbirthmandatory = (scalar grep {$_ eq "dateofbirth"} @field_check) ? 1 : 0; if ($newdata{dateofbirth} && $dateofbirthmandatory) { my $age = GetAge($newdata{dateofbirth}); my $borrowercategory=GetBorrowercategory($newdata{'categorycode'}); my ($low,$high) = ($borrowercategory->{'dateofbirthrequired'}, $borrowercategory->{'upperagelimit'}); if (($high && ($age > $high)) or ($age < $low)) { push @errors, 'ERROR_age_limitations'; - $template->param('ERROR_age_limitations' => "$low to $high"); + $template->param( age_low => $low); + $template->param( age_high => $high); } } @@ -431,9 +433,10 @@ if ($op eq "modify") { if ( $op eq "duplicate" ) { $template->param( updtype => 'I' ); $template->param( step_1 => 1, step_2 => 1, step_3 => 1, step_4 => 1, step_5 => 1, step_6 => 1 ) unless $step; + $data{'cardnumber'} = ""; } -$data{'cardnumber'}=fixup_cardnumber($data{'cardnumber'}) if $op eq 'add'; +$data{'cardnumber'}=fixup_cardnumber($data{'cardnumber'}) if ( ( $op eq 'add' ) or ( $op eq 'duplicate' ) ); if(!defined($data{'sex'})){ $template->param( none => 1); } elsif($data{'sex'} eq 'F'){