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

(-)a/C4/Members.pm (-2 / +9 lines)
Lines 585-591 sub ModMember { Link Here
585
    $new_borrower->{dateexpiry}      ||= undef if exists $new_borrower->{dateexpiry};
585
    $new_borrower->{dateexpiry}      ||= undef if exists $new_borrower->{dateexpiry};
586
    $new_borrower->{debarred}        ||= undef if exists $new_borrower->{debarred};
586
    $new_borrower->{debarred}        ||= undef if exists $new_borrower->{debarred};
587
    $new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id};
587
    $new_borrower->{sms_provider_id} ||= undef if exists $new_borrower->{sms_provider_id};
588
588
    $new_borrower->{flags}             = 0 unless $new_borrower->{flags};
589
    $new_borrower->{gonenoaddress}     = 0 unless $new_borrower->{gonenoaddress};
590
    $new_borrower->{lost}              = 0 unless $new_borrower->{lost};
591
    $new_borrower->{guarantorid}       = 0 unless $new_borrower->{guarantorid};
592
 
589
    my $rs = $schema->resultset('Borrower')->search({
593
    my $rs = $schema->resultset('Borrower')->search({
590
        borrowernumber => $new_borrower->{borrowernumber},
594
        borrowernumber => $new_borrower->{borrowernumber},
591
     });
595
     });
Lines 678-683 sub AddMember { Link Here
678
    $data{'dateofbirth'}     = undef if ( not $data{'dateofbirth'} );
682
    $data{'dateofbirth'}     = undef if ( not $data{'dateofbirth'} );
679
    $data{'debarred'}        = undef if ( not $data{'debarred'} );
683
    $data{'debarred'}        = undef if ( not $data{'debarred'} );
680
    $data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} );
684
    $data{'sms_provider_id'} = undef if ( not $data{'sms_provider_id'} );
685
    $data{flags}             = 0 unless $data{flags};
686
    $data{gonenoaddress}     = 0 unless $data{gonenoaddress};
687
    $data{lost}              = 0 unless $data{lost};
688
    $data{guarantorid}       = 0 unless $data{guarantorid};
681
689
682
    # get only the columns of Borrower
690
    # get only the columns of Borrower
683
    my @columns = $schema->source('Borrower')->columns;
691
    my @columns = $schema->source('Borrower')->columns;
684
- 

Return to bug 17328