UseModWiki소스수정/GetFomrStart함수

form 을 생성할 때 form 의 이름을 부여할 수 있도록 함

• 다른 패치들을 위한 패치
• 이 패치만 적용한 것으로는 아무런 변화가 일어나지 않는다.
• GetFormStart() 함수의 인터페이스를 변경하여, 문자열을 인자로 받을 경우 그 문자열을 form 의 name 속성으로 지정하도록 하였다.
• 부작용: 아직 모름
  • 애초에 perl 의 CGI 관련 함수인 startform() 에는 method, action, enctype 만을 인자로 받을 수 있게 되어 있다. 이것을 맘대로 이렇게 고쳐도 모든 플랫폼에서 다 지원 가능할지는 의문이다.

sub GetFormStart {
### 다음 라인을 아래 단락으로 교체
#   return $q->startform("POST", "$ScriptName", "application/x-www-form-urlencoded");

    my ($name) = @_;

    if ($name eq '') {
        return $q->startform("POST", "$ScriptName", "application/x-www-form-urlencoded");
    } else {
        return $q->startform(-method=>"POST", -action=>"$ScriptName", -enctype=>"application/x-www-form-urlencoded" ,-name=>"$name") ;
    }
###
}