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

(-)a/svc/members/upsert (-1 / +7 lines)
Lines 72-77 use Modern::Perl; Link Here
72
use C4::Context;
72
use C4::Context;
73
use C4::Members;
73
use C4::Members;
74
use C4::Members::AttributeTypes;
74
use C4::Members::AttributeTypes;
75
use C4::Members::Messaging;
75
use C4::Output::XMLStream;
76
use C4::Output::XMLStream;
76
use C4::Service;
77
use C4::Service;
77
78
Lines 313-317 sub create_borrower { Link Here
313
        $dbh->rollback;
314
        $dbh->rollback;
314
        die "Failed to create borrower record: $@\n";
315
        die "Failed to create borrower record: $@\n";
315
    }
316
    }
317
    C4::Members::Messaging::SetMessagingPreferencesFromDefaults(
318
        {
319
            borrowernumber => $borr_num,
320
            categorycode   => $borr_fields->{categorycode}
321
        }
322
    );
316
    return $borr_num;
323
    return $borr_num;
317
}
324
}
318
- 

Return to bug 13607