Bug 7092 - Complete-subfield searches TraceCompleteSubfields syspref not working...

[koha_gimpoz] / C4 / TTParser.pm

diff --git a/C4/TTParser.pm b/C4/TTParser.pm
index 2ea31a6..e088124 100644 (file)
--- a/C4/TTParser.pm
+++ b/C4/TTParser.pm
@@ -22,6 +22,7 @@ sub next_token{
 
 #unshift token back on @tokens
 sub unshift_token{
+    my $self = shift;
     unshift @tokens, shift;
 }