- fixed listvals. why did this break anyway?

[infobot.git] / src / Factoids / Question.pl

diff --git a/src/Factoids/Question.pl b/src/Factoids/Question.pl
index fa73b9f80ec849f132c4afd16c0f93d07e8bfc28..eab0d5f050ffd4feef8e1b69acd22d420b0d6784 100644 (file)
--- a/src/Factoids/Question.pl
+++ b/src/Factoids/Question.pl
@@ -195,7 +195,7 @@ sub factoidArgs {
 
        next unless (@vals);
 
-       &DEBUG("vals => @vals");
+#      &DEBUG("vals => @vals");
 
        &status("Question: factoid Arguments for '$str'");
        # todo: use getReply() - need to modify it :(
@@ -205,7 +205,8 @@ sub factoidArgs {
 
        foreach ( split(',', $1) ) {
            my $val = $vals[$i];
-           &DEBUG("val => $val");
+#          &DEBUG("val => $val");
+
            if (!defined $val) {
                &status("factArgs: vals[$i] == undef; not SARing '$_' for '$str'");
                next;
@@ -214,7 +215,10 @@ sub factoidArgs {
            my $done = 0;
            my $old = $result;
            while (1) {
-               $result = &substVars($result,1);
+#              &DEBUG("Q: result => $result (1)");
+               $result = &substVars($result);
+#              &DEBUG("Q: result => $result (1)");
+
                last if ($old eq $result);
                $old = $result;
                $done++;