Quellcode durchsuchen

fix #1, shrink double spaces in question/answer

James Seward vor 20 Jahren
Ursprung
Commit
873d8bf238
1 geänderte Dateien mit 7 neuen und 0 gelöschten Zeilen
  1. 7 0
      TriviaEngine/TriviaEngine-sqlite.tcl

+ 7 - 0
TriviaEngine/TriviaEngine-sqlite.tcl

@@ -664,6 +664,13 @@ proc trivia_get_question { } {
 		set trivia_q_question $question
 		set trivia_q_answer [string toupper $answer]
 		set trivia_q_hint ""
+
+		#tidy up question and answer
+		regsub -all "  +" $trivia_q_question " " trivia_q_question
+		regsub -all "  +" $trivia_q_answer " " trivia_q_answer
+
+		set trivia_q_question [string trim $trivia_q_question]
+		set trivia_q_answer [string trim $trivia_q_answer]
 	} 
 
 	if {$trivia_q_id == ""} {