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

(-)a/tools/letter.pl (-19 / +27 lines)
Lines 159-165 sub add_form { Link Here
159
159
160
    my $message_transport_types = GetMessageTransportTypes();
160
    my $message_transport_types = GetMessageTransportTypes();
161
    my $templates = { map { $_ => { message_transport_type => $_ } } sort @$message_transport_types };
161
    my $templates = { map { $_ => { message_transport_type => $_ } } sort @$message_transport_types };
162
    my %letters = ( default => { templates => $templates } );
162
    my %letters = ( default => { templates => {%$templates} } );
163
163
164
    my $translated_languages = C4::Languages::getTranslatedLanguages(
164
    my $translated_languages = C4::Languages::getTranslatedLanguages(
165
        'opac',
165
        'opac',
Lines 189-207 sub add_form { Link Here
189
    $template->param( default_language => $default_language );
189
    $template->param( default_language => $default_language );
190
    if ($letters) {
190
    if ($letters) {
191
        $template->param(
191
        $template->param(
192
            modify     => 1,
192
            modify => 1,
193
            code       => $code,
193
            code   => $code,
194
        );
194
        );
195
        my $first_flag_name = 1;
195
        my $first_flag_name = 1;
196
        my $lang;
196
        my $lang;
197
197
198
        # The letter name is contained into each mtt row.
198
        # The letter name is contained into each mtt row.
199
        # So we can only sent the first one to the template.
199
        # So we can only sent the first one to the template.
200
        for my $letter ( @$letters ) {
200
        for my $letter (@$letters) {
201
201
            # The letter_name
202
            # The letter_name
202
            if ( $first_flag_name and $letter->{name} ) {
203
            if ( $first_flag_name and $letter->{name} ) {
203
                $template->param(
204
                $template->param(
204
                    letter_name=> $letter->{name},
205
                    letter_name => $letter->{name},
205
                );
206
                );
206
                $first_flag_name = 0;
207
                $first_flag_name = 0;
207
            }
208
            }
Lines 217-239 sub add_form { Link Here
217
            };
218
            };
218
219
219
            my $lang = $letter->{lang};
220
            my $lang = $letter->{lang};
220
            my $mtt = $letter->{message_transport_type};
221
            my $mtt  = $letter->{message_transport_type};
221
            $letters{ $lang }{templates}{$mtt} = {
222
            $letters{$lang}{templates}{$mtt} = {
222
                message_transport_type => $letter->{message_transport_type},
223
                message_transport_type => $letter->{message_transport_type},
223
                is_html    => $letter->{is_html},
224
                is_html                => $letter->{is_html},
224
                updated_on => $letter->{updated_on},
225
                updated_on             => $letter->{updated_on},
225
                title      => $letter->{title},
226
                title                  => $letter->{title},
226
                content    => $letter->{content} // '',
227
                content                => $letter->{content} // '',
227
                tt_error   => $letter->{tt_error},
228
                tt_error               => $letter->{tt_error},
228
            };
229
            };
229
            $letters{ $lang }{params} = $letter;
230
            $letters{$lang}{params} = $letter;
231
        }
230
232
231
            my $object = Koha::Notice::Templates->find( { id => $letter->{id} } );
233
        # Fetch sample notices
232
            $letters{ $lang }{templates}{$mtt}{sample} = $object->get_default;
234
        for my $lang_key ( keys %letters ) {
233
            $letters{ $lang }{templates}{$mtt}{id} = $letter->{id};
235
            for my $mtt_key ( keys %{ $letters{$lang_key}{templates} } ) {
236
                my $object = Koha::Notice::Template->new(
237
                    { module => $module, code => $code, message_transport_type => $mtt_key, lang => $lang_key } );
238
                my $sample   = $object->get_default;
239
                my $template = { %{ $letters{$lang_key}{templates}{$mtt_key} } };
240
                $template->{sample} = $sample;
241
                $template->{id}     = lc( "$module" . "_" . $code . "_" . $mtt_key . "_" . $lang_key );
242
                $letters{$lang_key}{templates}{$mtt_key} = $template;
243
            }
234
        }
244
        }
235
    }
245
    } else {
236
    else {
237
        $template->param( adding => 1 );
246
        $template->param( adding => 1 );
238
    }
247
    }
239
248
240
- 

Return to bug 36815