while ( my $token = $parser->next_token ) {
my $attr = $token->{_attr};
next unless $attr;
- push @lines, $token->{_lc} if $attr->{'[%'};
+ push @lines, $token->{_lc} if $attr->{'[%'} or $attr->{'[%-'};
}
($dir) = $dir =~ /koha-tmpl\/(.*)$/;
push @files, { name => "$dir/$name", lines => \@lines } if @lines;
);
my $testtoken = 0;
-C4::TTParser::unshift_token($testtoken);
+my $ttparser = C4::TTParser->new();
+$ttparser->unshift_token($testtoken);
my $testtokenagain = C4::TTParser::next_token();
is( $testtoken, $testtokenagain, "Token received same as original put on stack");