View | Details | Raw Unified | Return to bug 13178
Collapse All | Expand All

(-)a/C4/Members.pm (-5 / +4 lines)
Lines 896-902 database column. Link Here
896
=cut
896
=cut
897
897
898
sub get_cardnumber_length {
898
sub get_cardnumber_length {
899
    my ( $min, $max ) = ( 0, 32 ); # borrowers.cardnumber is a nullable varchar(20)
899
    my $borrower = Koha::Schema->resultset('Borrower');
900
    my $field_size = $borrower->result_source->column_info('cardnumber')->{size};
901
    my ( $min, $max ) = ( 0, $field_size ); # borrowers.cardnumber is a nullable varchar(20)
900
    $min = 1 if C4::Context->preference('BorrowerMandatoryField') =~ /cardnumber/;
902
    $min = 1 if C4::Context->preference('BorrowerMandatoryField') =~ /cardnumber/;
901
    if ( my $cardnumber_length = C4::Context->preference('CardnumberLength') ) {
903
    if ( my $cardnumber_length = C4::Context->preference('CardnumberLength') ) {
902
        # Is integer and length match
904
        # Is integer and length match
Lines 912-920 sub get_cardnumber_length { Link Here
912
        }
914
        }
913
915
914
    }
916
    }
915
    my $borrower = Koha::Schema->resultset('Borrower');
917
    $min = $max if $min > $max;
916
    my $field_size = $borrower->result_source->column_info('cardnumber')->{size};
917
    $min = $field_size if $min > $field_size;
918
    return ( $min, $max );
918
    return ( $min, $max );
919
}
919
}
920
920
921
- 

Return to bug 13178