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

(-)a/C4/Acquisition.pm (+1 lines)
Lines 3026-3031 sub NotifyOrderUsers { Link Here
3026
            module      => 'acquisition',
3026
            module      => 'acquisition',
3027
            letter_code => 'ACQ_NOTIF_ON_RECEIV',
3027
            letter_code => 'ACQ_NOTIF_ON_RECEIV',
3028
            branchcode  => $library->{branchcode},
3028
            branchcode  => $library->{branchcode},
3029
            lang        => $borrower->{lang},
3029
            tables      => {
3030
            tables      => {
3030
                'branches'    => $library,
3031
                'branches'    => $library,
3031
                'borrowers'   => $borrower,
3032
                'borrowers'   => $borrower,
(-)a/C4/Circulation.pm (+1 lines)
Lines 3389-3394 sub SendCirculationAlert { Link Here
3389
            letter_code => $type,
3389
            letter_code => $type,
3390
            branchcode => $branch,
3390
            branchcode => $branch,
3391
            message_transport_type => $mtt,
3391
            message_transport_type => $mtt,
3392
            lang => $borrower->{lang},
3392
            tables => {
3393
            tables => {
3393
                $issues_table => $item->{itemnumber},
3394
                $issues_table => $item->{itemnumber},
3394
                'items'       => $item->{itemnumber},
3395
                'items'       => $item->{itemnumber},
(-)a/C4/Members.pm (+3 lines)
Lines 1172-1177 sub IssueSlip { Link Here
1172
    # FIXME Check callers before removing this statement
1172
    # FIXME Check callers before removing this statement
1173
    #return unless $borrowernumber;
1173
    #return unless $borrowernumber;
1174
1174
1175
    my $patron = Koha::Patrons->find( $borrowernumber );
1176
1175
    my @issues = @{ GetPendingIssues($borrowernumber) };
1177
    my @issues = @{ GetPendingIssues($borrowernumber) };
1176
1178
1177
    for my $issue (@issues) {
1179
    for my $issue (@issues) {
Lines 1232-1237 sub IssueSlip { Link Here
1232
        module => 'circulation',
1234
        module => 'circulation',
1233
        letter_code => $letter_code,
1235
        letter_code => $letter_code,
1234
        branchcode => $branch,
1236
        branchcode => $branch,
1237
        lang => $patron->lang,
1235
        tables => {
1238
        tables => {
1236
            'branches'    => $branch,
1239
            'branches'    => $branch,
1237
            'borrowers'   => $borrowernumber,
1240
            '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 1901-1906 sub _koha_notify_reserve { Link Here
1901
    my %letter_params = (
1902
    my %letter_params = (
1902
        module => 'reserves',
1903
        module => 'reserves',
1903
        branchcode => $hold->branchcode,
1904
        branchcode => $hold->branchcode,
1905
        lang => $borrower->{lang},
1904
        tables => {
1906
        tables => {
1905
            'branches'       => $library,
1907
            'branches'       => $library,
1906
            'borrowers'      => $borrower,
1908
            'borrowers'      => $borrower,
Lines 2246-2251 sub ReserveSlip { Link Here
2246
    my ($branch, $borrowernumber, $biblionumber) = @_;
2248
    my ($branch, $borrowernumber, $biblionumber) = @_;
2247
2249
2248
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2250
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2251
    my $patron = Koha::Patrons->find( $borrowernumber );
2249
2252
2250
    my $reserve_id = GetReserveId({
2253
    my $reserve_id = GetReserveId({
2251
        biblionumber => $biblionumber,
2254
        biblionumber => $biblionumber,
Lines 2257-2262 sub ReserveSlip { Link Here
2257
        module => 'circulation',
2260
        module => 'circulation',
2258
        letter_code => 'HOLD_SLIP',
2261
        letter_code => 'HOLD_SLIP',
2259
        branchcode => $branch,
2262
        branchcode => $branch,
2263
        lang => $patron->lang,
2260
        tables => {
2264
        tables => {
2261
            'reserves'    => $reserve,
2265
            'reserves'    => $reserve,
2262
            'branches'    => $reserve->{branchcode},
2266
            '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", # AR_PENDING, AR_PROCESSING, AR_COMPLETED, AR_CANCELED
109
            letter_code            => "AR_$status", # AR_PENDING, AR_PROCESSING, AR_COMPLETED, AR_CANCELED
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 174-179 if ( $action eq 'create' ) { Link Here
174
            my $letter = C4::Letters::GetPreparedLetter(
174
            my $letter = C4::Letters::GetPreparedLetter(
175
                module      => 'members',
175
                module      => 'members',
176
                letter_code => 'OPAC_REG_VERIFY',
176
                letter_code => 'OPAC_REG_VERIFY',
177
                lang        => 'default', # Patron does not have a preferred language defined yet
177
                tables      => {
178
                tables      => {
178
                    borrower_modifications => $verification_token,
179
                    borrower_modifications => $verification_token,
179
                },
180
                },
(-)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