".
$guide_msg."\n".
$q->startform(-name=>"comments",-method=>"POST",-action=>"$ScriptName",
-enctype=>"application/x-www-form-urlencoded",
-accept_charset=>"$HttpCharset")."\n".
&GetHiddenValue("action","comments")."\n".
&GetHiddenValue("id","$id")."\n".
&GetHiddenValue("pageid","$id")."\n".
&GetHiddenValue("up","$up")."\n".
&GetHiddenValue("ccode","$ccode") ."\n".
&GetHiddenValue("long","$long")."\n".
&GetHiddenValue("threadindent","$threadindent")."\n".
T('Name') . ": ".
$name_field . " "."\n".
T('Comment') . ":
".
$comment_field . " " ."\n".
$q->submit(-name=>"Submit",-value=>(" "x5).T("Submit").(" "x5))."\n".
"
"."\n".
"
"."\n".
$q->button(
-name=>T("Copy to clipboard"),
-onClick=>"copy_clip('',document.comments.comment.value)"
).
" ".
$q->button(
-name=>T("Toggle format"),
-onClick=>"change_format(document.comments.comment)"
)."\n".
"
"."\n".
"
"."\n".
$q->endform."\n".
"
";
## "[URL 설명]" 형태와 "설명[URL]" 형태를 토글해주는 함수
print <