--- db/prgsrc/db.cgi	2002/06/08 10:07:14	1.67
+++ db/prgsrc/db.cgi	2002/06/15 02:20:23	1.69
@@ -110,7 +110,7 @@ sub GetTourQuestions {
 	my (@arr, @Questions);
 
 	my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions
-		WHERE ParentId=$ParentId");
+		WHERE ParentId=$ParentId order by Number");
 
 	$sth->execute;
 
@@ -1052,7 +1052,7 @@ sub PrintQuestion {
 	$output .=
 		&PrintField("Вопрос $qnum", $Question{'Question'}, $text);
 
-	if ($answer) {
+	if ($answer==1) {
 		$output .=
 			&PrintField("Ответ", $Question{'Answer'}, $text);
 
@@ -1098,6 +1098,38 @@ sub PrintQuestion {
 			$output .= &PrintField("Комментарии", $Question{'Comments'}, $text);
 		}
 	}
+	elsif ($answer==2) {
+	  my $text=$Question{'Answer'};
+	  $text=~s/\n/<option>/mg;
+	  $output.="<select><option selected>Ответ:<option>$text</select>";
+	  $text=$Question{'Comments'}||'';
+	  if ($text) {
+             $text=~s/\n/<option>/mg;
+	     $output.="<select><option selected>Комментарий:<option>$text</select>"
+	  }
+	} 
+	elsif ($answer==3) {
+        $output.=  <<EOTT
+	  <div align=right STYLE="cursor:hand;" OnStart="toggle(document.all.HideShow$qnum);" OnClick="toggle(document.all.HideShow$qnum);">
+	  <font size=-2 color=red> Показать/убрать ответ</font></div>
+	  <span style="display:none" id=HideShow$qnum>
+EOTT
+          .&PrintField("Ответ", $Question{'Answer'}, $text);
+		if ($Question{'Authors'}) {
+			$output .= &PrintField("Автор(ы)", $Question{'Authors'}, $text);
+		}
+		if ($Question{'Sources'}) {
+			$output .= &PrintField("Источник(и)", $Question{'Sources'}, $text);
+		}
+
+		if ($Question{'Comments'}) {
+			$output .= &PrintField("Комментарии", $Question{'Comments'}, $text);
+		}
+
+
+$output.="</span>"
+
+	}
 #	$output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p
 #             if $answer;
 	return $output;
@@ -1671,6 +1703,18 @@ $sstr=~s/[^йцукенгшщзхъфывапролджэячсмит
 	}
 	if (!$text) {
 		print &Include_virtual("../dimrub/db/footer.html");
+print <<EEE
+  <SCRIPT LANGUAGE="JavaScript">
+function toggle(e) {
+  if (e.style.display == "none") {
+     e.style.display="";
+  } else {
+     e.style.display = "none";
+ }
+}
+</SCRIPT>
+EEE
+;
 		print end_html;
 	}
 	$dbh->disconnect;