179 |
my $name = $src->get_attribute_value ('Name'); |
my $name = $src->get_attribute_value ('Name'); |
180 |
$name =~ tr/-/_/; |
$name =~ tr/-/_/; |
181 |
## SuikaWiki 2 Interface |
## SuikaWiki 2 Interface |
182 |
$r .= qq(SuikaWiki::View->template (@{[literal $name]}) |
# $r .= qq(SuikaWiki::View->template (@{[literal $name]}) |
183 |
->add_line (@{[literal $src->get_attribute_value ('Formatting')]});\n); |
# ->add_line (@{[literal $src->get_attribute_value ('Formatting')]});\n); |
184 |
## SuikaWiki 3 Interface |
## SuikaWiki 3 Interface |
185 |
$r .= <<EOH; |
$r .= <<EOH; |
186 |
push \@{\$SuikaWiki::View::Implementation::TemplateFragment{@{[literal $name]}}}, { |
push \@{\$SuikaWiki::View::Implementation::TemplateFragment{@{[literal $name]}}}, { |