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

(-)a/C4/Acquisition.pm (+1 lines)
Lines 3030-3035 sub NotifyOrderUsers { Link Here
3030
            module      => 'acquisition',
3030
            module      => 'acquisition',
3031
            letter_code => 'ACQ_NOTIF_ON_RECEIV',
3031
            letter_code => 'ACQ_NOTIF_ON_RECEIV',
3032
            branchcode  => $library->{branchcode},
3032
            branchcode  => $library->{branchcode},
3033
            lang        => $borrower->{lang},
3033
            tables      => {
3034
            tables      => {
3034
                'branches'    => $library,
3035
                'branches'    => $library,
3035
                'borrowers'   => $borrower,
3036
                'borrowers'   => $borrower,
(-)a/C4/Circulation.pm (+1 lines)
Lines 3349-3354 sub SendCirculationAlert { Link Here
3349
            letter_code => $type,
3349
            letter_code => $type,
3350
            branchcode => $branch,
3350
            branchcode => $branch,
3351
            message_transport_type => $mtt,
3351
            message_transport_type => $mtt,
3352
            lang => $borrower->{lang},
3352
            tables => {
3353
            tables => {
3353
                $issues_table => $item->{itemnumber},
3354
                $issues_table => $item->{itemnumber},
3354
                'items'       => $item->{itemnumber},
3355
                'items'       => $item->{itemnumber},
(-)a/C4/Members.pm (+3 lines)
Lines 1166-1171 sub IssueSlip { Link Here
1166
    # FIXME Check callers before removing this statement
1166
    # FIXME Check callers before removing this statement
1167
    #return unless $borrowernumber;
1167
    #return unless $borrowernumber;
1168
1168
1169
    my $patron = Koha::Patrons->find( $borrowernumber );
1170
1169
    my @issues = @{ GetPendingIssues($borrowernumber) };
1171
    my @issues = @{ GetPendingIssues($borrowernumber) };
1170
1172
1171
    for my $issue (@issues) {
1173
    for my $issue (@issues) {
Lines 1226-1231 sub IssueSlip { Link Here
1226
        module => 'circulation',
1228
        module => 'circulation',
1227
        letter_code => $letter_code,
1229
        letter_code => $letter_code,
1228
        branchcode => $branch,
1230
        branchcode => $branch,
1231
        lang => $patron->lang,
1229
        tables => {
1232
        tables => {
1230
            'branches'    => $branch,
1233
            'branches'    => $branch,
1231
            'borrowers'   => $borrowernumber,
1234
            'borrowers'   => $borrowernumber,
(-)a/C4/Overdues.pm (+3 lines)
Lines 994-999 sub parse_overdues_letter { Link Here
994
        return unless ( exists $params->{$required} && $params->{$required} );
994
        return unless ( exists $params->{$required} && $params->{$required} );
995
    }
995
    }
996
996
997
    my $patron = Koha::Patrons->find( $params->{borrowernumber} );
998
997
    my $substitute = $params->{'substitute'} || {};
999
    my $substitute = $params->{'substitute'} || {};
998
    $substitute->{today} ||= output_pref( { dt => dt_from_string, dateonly => 1} );
1000
    $substitute->{today} ||= output_pref( { dt => dt_from_string, dateonly => 1} );
999
1001
Lines 1028-1033 sub parse_overdues_letter { Link Here
1028
        module => 'circulation',
1030
        module => 'circulation',
1029
        letter_code => $params->{'letter_code'},
1031
        letter_code => $params->{'letter_code'},
1030
        branchcode => $params->{'branchcode'},
1032
        branchcode => $params->{'branchcode'},
1033
        lang => $patron->lang,
1031
        tables => \%tables,
1034
        tables => \%tables,
1032
        substitute => $substitute,
1035
        substitute => $substitute,
1033
        repeat => { item => \@item_tables },
1036
        repeat => { item => \@item_tables },
(-)a/C4/Reserves.pm (+4 lines)
Lines 233-238 sub AddReserve { Link Here
233
            module => 'reserves',
233
            module => 'reserves',
234
            letter_code => 'HOLDPLACED',
234
            letter_code => 'HOLDPLACED',
235
            branchcode => $branch,
235
            branchcode => $branch,
236
            lang => $borrower->{lang},
236
            tables => {
237
            tables => {
237
                'branches'    => $library,
238
                'branches'    => $library,
238
                'borrowers'   => $borrower,
239
                'borrowers'   => $borrower,
Lines 2002-2007 sub _koha_notify_reserve { Link Here
2002
    my %letter_params = (
2003
    my %letter_params = (
2003
        module => 'reserves',
2004
        module => 'reserves',
2004
        branchcode => $hold->branchcode,
2005
        branchcode => $hold->branchcode,
2006
        lang => $borrower->{lang},
2005
        tables => {
2007
        tables => {
2006
            'branches'       => $library,
2008
            'branches'       => $library,
2007
            'borrowers'      => $borrower,
2009
            'borrowers'      => $borrower,
Lines 2347-2352 sub ReserveSlip { Link Here
2347
    my ($branch, $borrowernumber, $biblionumber) = @_;
2349
    my ($branch, $borrowernumber, $biblionumber) = @_;
2348
2350
2349
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2351
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2352
    my $patron = Koha::Patrons->find( $borrowernumber );
2350
2353
2351
    my $reserve_id = GetReserveId({
2354
    my $reserve_id = GetReserveId({
2352
        biblionumber => $biblionumber,
2355
        biblionumber => $biblionumber,
Lines 2358-2363 sub ReserveSlip { Link Here
2358
        module => 'circulation',
2361
        module => 'circulation',
2359
        letter_code => 'HOLD_SLIP',
2362
        letter_code => 'HOLD_SLIP',
2360
        branchcode => $branch,
2363
        branchcode => $branch,
2364
        lang => $patron->lang,
2361
        tables => {
2365
        tables => {
2362
            'reserves'    => $reserve,
2366
            'reserves'    => $reserve,
2363
            'branches'    => $reserve->{branchcode},
2367
            'branches'    => $reserve->{branchcode},
(-)a/C4/Suggestions.pm (+2 lines)
Lines 502-512 sub ModSuggestion { Link Here
502
502
503
        # fetch the entire updated suggestion so that we can populate the letter
503
        # fetch the entire updated suggestion so that we can populate the letter
504
        my $full_suggestion = GetSuggestion( $suggestion->{suggestionid} );
504
        my $full_suggestion = GetSuggestion( $suggestion->{suggestionid} );
505
        my $patron = Koha::Patrons->find( $full_suggestion->{suggestedby} );
505
        if (
506
        if (
506
            my $letter = C4::Letters::GetPreparedLetter(
507
            my $letter = C4::Letters::GetPreparedLetter(
507
                module      => 'suggestions',
508
                module      => 'suggestions',
508
                letter_code => $full_suggestion->{STATUS},
509
                letter_code => $full_suggestion->{STATUS},
509
                branchcode  => $full_suggestion->{branchcode},
510
                branchcode  => $full_suggestion->{branchcode},
511
                lang        => $patron->lang,
510
                tables      => {
512
                tables      => {
511
                    'branches'    => $full_suggestion->{branchcode},
513
                    'branches'    => $full_suggestion->{branchcode},
512
                    'borrowers'   => $full_suggestion->{suggestedby},
514
                    'borrowers'   => $full_suggestion->{suggestedby},
(-)a/Koha/ArticleRequest.pm (+1 lines)
Lines 108-113 sub notify { Link Here
108
            module                 => 'circulation',
108
            module                 => 'circulation',
109
            letter_code            => "AR_$status",
109
            letter_code            => "AR_$status",
110
            message_transport_type => 'email',
110
            message_transport_type => 'email',
111
            lang                   => $self->borrower->lang,
111
            tables                 => {
112
            tables                 => {
112
                article_requests => $self->id,
113
                article_requests => $self->id,
113
                borrowers        => $self->borrowernumber,
114
                borrowers        => $self->borrowernumber,
(-)a/Koha/Patron/Discharge.pm (+2 lines)
Lines 107-115 sub generate_as_pdf { Link Here
107
    my ($params) = @_;
107
    my ($params) = @_;
108
    return unless $params->{borrowernumber};
108
    return unless $params->{borrowernumber};
109
109
110
    my $patron = Koha::Patrons->find( $params->{borrowernumber} );
110
    my $letter = C4::Letters::GetPreparedLetter(
111
    my $letter = C4::Letters::GetPreparedLetter(
111
        module      => 'members',
112
        module      => 'members',
112
        letter_code => 'DISCHARGE',
113
        letter_code => 'DISCHARGE',
114
        lang        => $patron->lang,
113
        tables      => { borrowers => $params->{borrowernumber}, branches => $params->{'branchcode'}, },
115
        tables      => { borrowers => $params->{borrowernumber}, branches => $params->{'branchcode'}, },
114
    );
116
    );
115
117
(-)a/Koha/Patron/Password/Recovery.pm (+1 lines)
Lines 143-148 sub SendPasswordRecoveryEmail { Link Here
143
        module      => 'members',
143
        module      => 'members',
144
        letter_code => 'PASSWORD_RESET',
144
        letter_code => 'PASSWORD_RESET',
145
        branchcode  => $borrower->branchcode,
145
        branchcode  => $borrower->branchcode,
146
        lang        => $borrower->lang,
146
        substitute =>
147
        substitute =>
147
          { passwordreseturl => $uuidLink, user => $borrower->userid },
148
          { passwordreseturl => $uuidLink, user => $borrower->userid },
148
    );
149
    );
(-)a/circ/article-request-slip.pl (+3 lines)
Lines 25-30 use C4::Context; Link Here
25
use C4::Output;
25
use C4::Output;
26
use C4::Auth;
26
use C4::Auth;
27
use Koha::ArticleRequests;
27
use Koha::ArticleRequests;
28
use Koha::Patrons;
28
29
29
my $cgi = new CGI;
30
my $cgi = new CGI;
30
31
Lines 43-53 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
43
my $ar = Koha::ArticleRequests->find($id);
44
my $ar = Koha::ArticleRequests->find($id);
44
45
45
$template->param( article_request => $ar );
46
$template->param( article_request => $ar );
47
my $patron = Koha::Patrons->find( $ar->borrowernumber );
46
48
47
my $slip = C4::Letters::GetPreparedLetter(
49
my $slip = C4::Letters::GetPreparedLetter(
48
    module                 => 'circulation',
50
    module                 => 'circulation',
49
    letter_code            => 'AR_SLIP',
51
    letter_code            => 'AR_SLIP',
50
    message_transport_type => 'print',
52
    message_transport_type => 'print',
53
    lang                   => $patron->lang,
51
    tables                 => {
54
    tables                 => {
52
        article_requests => $ar->id,
55
        article_requests => $ar->id,
53
        borrowers        => $ar->borrowernumber,
56
        borrowers        => $ar->borrowernumber,
(-)a/misc/cronjobs/advance_notices.pl (+3 lines)
Lines 58-63 use C4::Overdues; Link Here
58
use Koha::DateUtils;
58
use Koha::DateUtils;
59
use C4::Log;
59
use C4::Log;
60
use Koha::Libraries;
60
use Koha::Libraries;
61
use Koha::Patrons;
61
62
62
=head1 NAME
63
=head1 NAME
63
64
Lines 467-472 sub parse_letter { Link Here
467
    foreach my $required ( qw( letter_code borrowernumber ) ) {
468
    foreach my $required ( qw( letter_code borrowernumber ) ) {
468
        return unless exists $params->{$required};
469
        return unless exists $params->{$required};
469
    }
470
    }
471
    my $patron = Koha::Patrons->find( $params->{borrowernumber} );
470
472
471
    my %table_params = ( 'borrowers' => $params->{'borrowernumber'} );
473
    my %table_params = ( 'borrowers' => $params->{'borrowernumber'} );
472
474
Lines 486-491 sub parse_letter { Link Here
486
        module => 'circulation',
488
        module => 'circulation',
487
        letter_code => $params->{'letter_code'},
489
        letter_code => $params->{'letter_code'},
488
        branchcode => $table_params{'branches'},
490
        branchcode => $table_params{'branches'},
491
        lang => $patron->lang,
489
        substitute => $params->{'substitute'},
492
        substitute => $params->{'substitute'},
490
        tables     => \%table_params,
493
        tables     => \%table_params,
491
        message_transport_type => $params->{message_transport_type},
494
        message_transport_type => $params->{message_transport_type},
(-)a/misc/cronjobs/membership_expiry.pl (+3 lines)
Lines 130-135 use C4::Context; Link Here
130
use C4::Letters;
130
use C4::Letters;
131
use C4::Log;
131
use C4::Log;
132
132
133
use Koha::Patrons;
134
133
# These are defaults for command line options.
135
# These are defaults for command line options.
134
my $confirm;                              # -c: Confirm that the user has read and configured this script.
136
my $confirm;                              # -c: Confirm that the user has read and configured this script.
135
my $nomail;                               # -n: No mail. Will not send any emails.
137
my $nomail;                               # -n: No mail. Will not send any emails.
Lines 185-190 while ( my $recent = $upcoming_mem_expires->next ) { Link Here
185
        module      => 'members',
187
        module      => 'members',
186
        letter_code => $letter_type,
188
        letter_code => $letter_type,
187
        branchcode  => $recent->branchcode,
189
        branchcode  => $recent->branchcode,
190
        lang        => $recent->lang,
188
        tables      => {
191
        tables      => {
189
            borrowers => $recent->borrowernumber,
192
            borrowers => $recent->borrowernumber,
190
            branches  => $recent->branchcode,
193
            branches  => $recent->branchcode,
(-)a/misc/cronjobs/notice_unprocessed_suggestions.pl (+1 lines)
Lines 58-63 for my $number_of_days (@days) { Link Here
58
                module      => 'suggestions',
58
                module      => 'suggestions',
59
                letter_code => 'TO_PROCESS',
59
                letter_code => 'TO_PROCESS',
60
                branchcode  => $patron->{branchcode},
60
                branchcode  => $patron->{branchcode},
61
                lang        => $patron->{lang},
61
                tables      => {
62
                tables      => {
62
                    suggestions => $suggestion->{suggestionid},
63
                    suggestions => $suggestion->{suggestionid},
63
                    branches    => $patron->{branchcode},
64
                    branches    => $patron->{branchcode},
(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (+1 lines)
Lines 123-128 foreach my $type (@types) { Link Here
123
        my $letter = C4::Letters::GetPreparedLetter(
123
        my $letter = C4::Letters::GetPreparedLetter(
124
            module      => $module,
124
            module      => $module,
125
            letter_code => $code,
125
            letter_code => $code,
126
            lang        => 'default', # It does not sound useful to send a lang here
126
            tables      => {
127
            tables      => {
127
                borrowers   => $issues->{'borrowernumber'},
128
                borrowers   => $issues->{'borrowernumber'},
128
                biblio      => $issues->{'biblionumber'},
129
                biblio      => $issues->{'biblionumber'},
(-)a/opac/opac-memberentry.pl (+1 lines)
Lines 153-158 if ( $action eq 'create' ) { Link Here
153
            my $letter = C4::Letters::GetPreparedLetter(
153
            my $letter = C4::Letters::GetPreparedLetter(
154
                module      => 'members',
154
                module      => 'members',
155
                letter_code => 'OPAC_REG_VERIFY',
155
                letter_code => 'OPAC_REG_VERIFY',
156
                lang        => 'default', # Patron does not have a preferred language defined yet
156
                tables      => {
157
                tables      => {
157
                    borrower_modifications => $verification_token,
158
                    borrower_modifications => $verification_token,
158
                },
159
                },
(-)a/opac/opac-shareshelf.pl (-1 / +4 lines)
Lines 169-179 sub notify_owner { Link Here
169
    my $toaddr = C4::Members::GetNoticeEmailAddress( $param->{owner} );
169
    my $toaddr = C4::Members::GetNoticeEmailAddress( $param->{owner} );
170
    return if !$toaddr;
170
    return if !$toaddr;
171
171
172
    my $patron = Koha::Patrons->find( $param->{owner} );
173
172
    #prepare letter
174
    #prepare letter
173
    my $letter = C4::Letters::GetPreparedLetter(
175
    my $letter = C4::Letters::GetPreparedLetter(
174
        module      => 'members',
176
        module      => 'members',
175
        letter_code => 'SHARE_ACCEPT',
177
        letter_code => 'SHARE_ACCEPT',
176
        branchcode  => C4::Context->userenv->{"branch"},
178
        branchcode  => C4::Context->userenv->{"branch"},
179
        lang        => $patron->lang,
177
        tables      => { borrowers => $param->{loggedinuser}, },
180
        tables      => { borrowers => $param->{loggedinuser}, },
178
        substitute  => { listname => $param->{shelfname}, },
181
        substitute  => { listname => $param->{shelfname}, },
179
    );
182
    );
Lines 239-244 sub send_invitekey { Link Here
239
            module      => 'members',
242
            module      => 'members',
240
            letter_code => 'SHARE_INVITE',
243
            letter_code => 'SHARE_INVITE',
241
            branchcode  => C4::Context->userenv->{"branch"},
244
            branchcode  => C4::Context->userenv->{"branch"},
245
            lang        => 'default', # Not sure how we could use something more useful else here
242
            tables      => { borrowers => $param->{loggedinuser}, },
246
            tables      => { borrowers => $param->{loggedinuser}, },
243
            substitute  => {
247
            substitute  => {
244
                listname => $param->{shelfname},
248
                listname => $param->{shelfname},
245
- 

Return to bug 17762