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

(-)a/C4/Members.pm (-5 / +4 lines)
Lines 956-962 database column. Link Here
956
=cut
956
=cut
957
957
958
sub get_cardnumber_length {
958
sub get_cardnumber_length {
959
    my ( $min, $max ) = ( 0, 32 ); # borrowers.cardnumber is a nullable varchar(20)
959
    my $borrower = Koha::Schema->resultset('Borrower');
960
    my $field_size = $borrower->result_source->column_info('cardnumber')->{size};
961
    my ( $min, $max ) = ( 0, $field_size ); # borrowers.cardnumber is a nullable varchar(20)
960
    $min = 1 if C4::Context->preference('BorrowerMandatoryField') =~ /cardnumber/;
962
    $min = 1 if C4::Context->preference('BorrowerMandatoryField') =~ /cardnumber/;
961
    if ( my $cardnumber_length = C4::Context->preference('CardnumberLength') ) {
963
    if ( my $cardnumber_length = C4::Context->preference('CardnumberLength') ) {
962
        # Is integer and length match
964
        # Is integer and length match
Lines 972-980 sub get_cardnumber_length { Link Here
972
        }
974
        }
973
975
974
    }
976
    }
975
    my $borrower = Koha::Schema->resultset('Borrower');
977
    $min = $max if $min > $max;
976
    my $field_size = $borrower->result_source->column_info('cardnumber')->{size};
977
    $min = $field_size if $min > $field_size;
978
    return ( $min, $max );
978
    return ( $min, $max );
979
}
979
}
980
980
981
- 

Return to bug 13178