Bug 9811: Remove useless orderby management

[koha_fer] / C4 / TTParser.pm

diff --git a/C4/TTParser.pm b/C4/TTParser.pm
index 87ad744..d27e412 100644 (file)
--- a/C4/TTParser.pm
+++ b/C4/TTParser.pm
@@ -40,6 +40,7 @@ sub next_token{
 
 #unshift token back on @tokens
 sub unshift_token{
+    my $self = shift;
     unshift @tokens, shift;
 }
 
@@ -74,7 +75,7 @@ sub text{
     my $is_cdata = shift;
     while($work){
         # if there is a template_toolkit tag
-        if( $work =~ m/\[%.*?\]/ ){
+        if( $work =~ m/\[%.*?%\]/ ){
             #everything before this tag is text (or possibly CDATA), add a text token to tokens if $`
             if( $` ){
                 my $t = C4::TmplToken->new( $`, ($is_cdata? C4::TmplTokenType::CDATA : C4::TmplTokenType::TEXT), $line, $self->{filename} );