Lines 907-913
sub fixup_cardnumber ($) {
Link Here
|
907 |
|
907 |
|
908 |
# if ($cardnumber !~ /\S/ && $autonumber_members) { |
908 |
# if ($cardnumber !~ /\S/ && $autonumber_members) { |
909 |
($autonumber_members) or return $cardnumber; |
909 |
($autonumber_members) or return $cardnumber; |
910 |
defined($cardnumber) or return $cardnumber; |
|
|
911 |
my $checkdigit = C4::Context->preference('checkdigit'); |
910 |
my $checkdigit = C4::Context->preference('checkdigit'); |
912 |
my $dbh = C4::Context->dbh; |
911 |
my $dbh = C4::Context->dbh; |
913 |
if ( $checkdigit and $checkdigit eq 'katipo' ) { |
912 |
if ( $checkdigit and $checkdigit eq 'katipo' ) { |
914 |
- |
|
|