Selaa lähdekoodia

fix #1, shrink double spaces in question/answer

James Seward 20 vuotta sitten
vanhempi
commit
873d8bf238
1 muutettua tiedostoa jossa 7 lisäystä ja 0 poistoa
  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 == ""} {