@@ -, +, @@
-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'){
--