https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=36815

--- Comment #16 from Martin Renvoize <[email protected]> ---
        # Fetch sample notices
        use Data::Printer;
        for my $lang_key ( keys %letters ) {
            for my $mtt_key ( keys %{ $letters{$lang_key}{templates} } ) {
                my $object = Koha::Notice::Template->new(
                    { module => $module, code => $code, message_transport_type
=> $mtt_key, lang => $lang_key } );
                $letters{$lang_key}{templates}{$mtt_key}{sample} =
$object->get_default;
                $letters{$lang_key}{templates}{$mtt_key}{id}     = lc(
"$module" . "_" . $code . "_" . $mtt_key . "_" . $lang_key );
                p $letters{$lang_key}{templates}{$mtt_key}, as => $lang_key .
":" . $mtt_key;
            }
        }

#        while ( my ( $lang_key, $lang_value ) = each %letters ) {
#            p $lang_value, as => $lang_key;
#            while ( my ( $mtt_key, $mtt_value ) = each %{
$lang_value->{templates} } ) {
#                my $object = Koha::Notice::Template->new(
#                    { module => $module, code => $code, message_transport_type
=> $mtt_key, lang => $lang_key } );
#                $mtt_value->{sample} = $object->get_default;
#                $mtt_value->{id}     = lc( "$module" . "_" . $code . "_" .
$mtt_key . "_" . $lang_key );
#            }
#            warn "\n\n";
#        }

-- 
You are receiving this mail because:
You are watching all bug changes.
_______________________________________________
Koha-bugs mailing list
[email protected]
https://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/

Reply via email to