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

(-)a/Koha/REST/V1/Patrons.pm (-1 / +33 lines)
Lines 22-27 use Mojo::Base 'Mojolicious::Controller'; Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::Exceptions;
23
use Koha::Exceptions;
24
use Koha::Patrons;
24
use Koha::Patrons;
25
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
25
26
26
use List::MoreUtils qw(any);
27
use List::MoreUtils qw(any);
27
use Scalar::Util qw( blessed );
28
use Scalar::Util qw( blessed );
Lines 113-118 sub add { Link Here
113
                my $extended_attributes = delete $body->{extended_attributes} // [];
114
                my $extended_attributes = delete $body->{extended_attributes} // [];
114
115
115
                my $patron = Koha::Patron->new_from_api($body)->store;
116
                my $patron = Koha::Patron->new_from_api($body)->store;
117
118
                if ( $c->req->headers->header('X-Koha-SendWelcomeEmail') ) {
119
120
                    # if we manage to find a valid email address, send notice
121
                    if ( $patron->notice_email_address ) {
122
                        my $letter = GetPreparedLetter(
123
                            module      => 'members',
124
                            letter_code => 'WELCOME',
125
                            branchcode  => $patron->branchcode,
126
                            ,
127
                            lang   => $patron->lang || 'default',
128
                            tables => {
129
                                'branches'  => $patron->branchcode,
130
                                'borrowers' => $patron->borrowernumber,
131
                            },
132
                            want_librarian => 1,
133
                        );
134
135
                        if ($letter) {
136
                            my $message_id = EnqueueLetter(
137
                                {
138
                                    letter                 => $letter,
139
                                    borrowernumber         => $patron->id,
140
                                    to_address             => $patron->notice_email_address,
141
                                    message_transport_type => 'email'
142
                                }
143
                            );
144
                            SendQueuedMessages( { message_id => $message_id } );
145
                        }
146
                    }
147
                }
148
116
                $patron->extended_attributes(
149
                $patron->extended_attributes(
117
                    [
150
                    [
118
                        map { { code => $_->{type}, attribute => $_->{value} } }
151
                        map { { code => $_->{type}, attribute => $_->{value} } }
119
- 

Return to bug 33690