UseModWiki소스수정/편집필드에포커스

페이지 수정하기로 들어갔을 때 커서가 편집 영역에 놓이게 함

• 페이지 수정하기로 들어간 직후에 편집을 하기 위해서 마우스로 편집 영역을 클릭해야 되는 것이 귀찮아서..
• Perl 도 모르고 JavaScript는 더더욱 모르는 채로 JavaScript를 출력하도록 perl 코드를 수정하다.. -.-;
• 아래에 있는 "form 을 생성할 때 form 의 이름을 부여할 수 있도록 함" 패치가 적용되어 있어야 한다.
• 부작용: 알려진 것 없음

sub DoEdit {
    ...
    print &HelpLink(5, "이모티콘") . "<br>\n";
### 다음 라인 교체
#   print &GetFormStart();
    print &GetFormStart("form_edit");                  # 예전 패치에 없던 부분
###
    print &GetHiddenValue("title", $id), "\n",
    ...
    print $q->endform;
### 다음 코드를 추가
    print "\n<script language=\"JavaScript\" type=\"text/javascript\">\n"
        . "<!--\n"
        . "document.form_edit.text.focus();\n"         # 예전 패치에서 재수정
        . "//-->\n"
        . "</script>\n";
### 여기까지
    print &GetMinimumFooter();
}