@@ -, +, @@ -C4/Members.pm: -koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt: -members/memberentry.pl: -If "autoMemberNum" ON: ->In blank case, must generate auto card number in simulataneous users. ->If user entered, check for unique card number. -If "autoMemberNum" OFF: --- C4/Members.pm | 5 +++++ .../prog/en/modules/members/memberentrygen.tt | 8 ++++++-- members/memberentry.pl | 6 +++++- 3 files changed, 16 insertions(+), 3 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -750,6 +750,11 @@ Returns as undef upon any db error without further processing sub AddMember { my (%data) = @_; my $dbh = C4::Context->dbh; + if(C4::Context->preference("autoMemberNum")) { + if ($data{'cardnumber'} eq '') { + $data{'cardnumber'}= fixup_cardnumber($data{'cardnumber'},C4::Context->userenv->{'branch'}, $data{'categorycode'}); + } + } # generate a proper login if none provided $data{'userid'} = Generate_Userid($data{'borrowernumber'}, $data{'firstname'}, $data{'surname'}) if $data{'userid'} eq ''; # create a disabled account if no password provided --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt @@ -1006,8 +1006,12 @@ + [% ELSE %] + Card number: + [% END %] [% IF ( opduplicate ) %] [% ELSE %] --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -433,7 +433,11 @@ if ( $op eq "duplicate" ) { $template->param( step_1 => 1, step_2 => 1, step_3 => 1, step_4 => 1, step_5 => 1, step_6 => 1 ) unless $step; } -$data{'cardnumber'}=fixup_cardnumber($data{'cardnumber'}) if $op eq 'add'; +if (C4::Context->preference("autoMemberNum")) { + $template->param( autoMemberNum => 1); +} else { + $template->param( autoMemberNum => 0); +} if(!defined($data{'sex'})){ $template->param( none => 1); } elsif($data{'sex'} eq 'F'){ --