https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=36815 --- Comment #16 from Martin Renvoize <martin.renvoize@ptfs-europe.com> --- # 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.