summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1dbea5d)
See bug 21526 comments 5-7
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
- if $line =~ m{\[% USE raw %\]}; # Does [% Use raw %] exist?
+ if $line =~ m{\[%(\s|-|~)*USE raw(\s|-|~)*%\]}; # Does [% Use raw %] exist?
my $e;
if ( $line =~ qr{<a href="([^"]+)} ) {
my $e;
if ( $line =~ qr{<a href="([^"]+)} ) {
subtest 'Preserve pre/post chomps' => sub {
plan tests => 1;
my $input = <<INPUT;
subtest 'Preserve pre/post chomps' => sub {
plan tests => 1;
my $input = <<INPUT;
[%- var -%]
[% - var - %]
[%~ var ~%]
[%- var -%]
[% - var - %]
[%~ var ~%]
[%~ var | uri ~%]
INPUT
my $expected = <<EXPECTED;
[%~ var | uri ~%]
INPUT
my $expected = <<EXPECTED;
[%- var | html -%]
[%- var | html -%]
[%~ var | html ~%]
[%- var | html -%]
[%- var | html -%]
[%~ var | html ~%]