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

(-)a/members/memberentry.pl (-5 / +2 lines)
Lines 430-437 elsif ( $borrowernumber ) { Link Here
430
430
431
if ( ($op eq 'modify' || $op eq 'insert' || $op eq 'save'|| $op eq 'duplicate') and ($step == 0 or $step == 3 )){
431
if ( ($op eq 'modify' || $op eq 'insert' || $op eq 'save'|| $op eq 'duplicate') and ($step == 0 or $step == 3 )){
432
    unless ($newdata{'dateexpiry'}){
432
    unless ($newdata{'dateexpiry'}){
433
        my $patron_category = Koha::Patron::Categories->find( $newdata{categorycode} );
433
        $newdata{'dateexpiry'} = $category->get_expiry_date( $newdata{dateenrolled} ) if $category;
434
        $newdata{'dateexpiry'} = $patron_category->get_expiry_date( $newdata{dateenrolled} ) if $patron_category;
435
    }
434
    }
436
}
435
}
437
436
Lines 790-797 if (!defined($data{'dateenrolled'}) or $data{'dateenrolled'} eq ''){ Link Here
790
}
789
}
791
if ( $op eq 'duplicate' ) {
790
if ( $op eq 'duplicate' ) {
792
    $data{'dateenrolled'} = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
791
    $data{'dateenrolled'} = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
793
    my $patron_category = Koha::Patron::Categories->find( $data{categorycode} );
792
    $data{dateexpiry} = $category->get_expiry_date( $data{dateenrolled} );
794
    $data{dateexpiry} = $patron_category->get_expiry_date( $data{dateenrolled} );
795
}
793
}
796
if (C4::Context->preference('uppercasesurnames')) {
794
if (C4::Context->preference('uppercasesurnames')) {
797
    $data{'surname'} &&= uc( $data{'surname'} );
795
    $data{'surname'} &&= uc( $data{'surname'} );
798
- 

Return to bug 30874