Permit entry of loss per league

[ypp-sc-tools.main.git] / yarrg / web / qtextstringcheck

diff --git a/yarrg/web/qtextstringcheck b/yarrg/web/qtextstringcheck
index a6c84fe44ba9775f434bc5ff3ac06aad64bc36a6..a489d8e1232940e6c603c44e05f43eed3add47b9 100755 (executable)
--- a/yarrg/web/qtextstringcheck
+++ b/yarrg/web/qtextstringcheck
@@ -74,8 +74,10 @@ if ($chk->method_exists('sqlstmt')) {
 my $emsg= '';
 my @results;
 my @specs;
+my $canontext;
 my $hooks = {  Emsg => \$emsg,         String => \$string,
                Results => \@results,   Specs => \@specs,
+               Canon => \$canontext
            };
 
 if ($chk->method_exists('preparse')) {
@@ -114,9 +116,10 @@ foreach my $each (@specs) {
        push @results, $results->[0];
 };
 
-my $canontext= join ' | ', map { $_->[0] } @results;
+if (!defined $canontext) {
+       $canontext= join ' | ', map { $_->[0] } @results;
+}
 if ($chk->method_exists('postquery')) {
-       $hooks->{Canon}= \$canontext;
        $chk->call_method('postquery', h => $hooks);
 }