[첫화면으로]"UseModWiki소스수정/GotoBar개선" 페이지의 변경 내역

마지막으로 [b]


현재 버전 . . . . (수정) 2007-3-19 5:43 pm 수정한 사람: Raymundo
5 번째 수정본 . . . . (수정) 2007-3-19 8:50 am 수정한 사람: Raymundo [바로가기 - ]
 

변경사항 (가장 최근의 "일반적인 수정"부터) (소소한 수정)

-147,51 +147,7
}
}}}
바로가기 폼을 만드는 GetGotoForm 함수 추가
{{{#!vim perl
sub GetGotoForm {
    my ($string) = @_;
    my $result;
    my $location_prefix = $ScriptName . &ScriptLinkChar();
    my $param_backup = $q->param("id");
    $q->param("id", "$string");
    $GotoTextFieldId++;
    $result =
        $q->start_form(
                -method         => "POST",
                -action         => "$ScriptName",
                -enctype        => "application/x-www-form-urlencoded",
                -accept_charset => "$HttpCharset",
                -onSubmit       =>
                        "document.location.href = "
                        . "'$location_prefix'+document.getElementById('goto_$GotoTextFieldId').value;"
                        . "return false;"
                        ,
                )
        . &GetHiddenValue("action", "browse")
        . $q->textfield(
                -name   => "id",
                -id     => "goto_$GotoTextFieldId",
                -class  => "goto",
                -size   => "15",
                -value  => "$string",
                -accesskey => "g",
                -title  => "Alt + g",
                )
        . " "
        . $q->submit(
                -class  => "goto",
                -name   => "Submit",
                -value  => T("Go"),
                )
        . $q->endform
        ;
    $q->param("id", $param_backup);
    return $result;
}
}}}
바로가기 폼을 만드는 GetGotoForm 함수를 추가하는데, 이건 [[/바로가기폼]]에서 다룬다.
스타일 등의 일관성을 위해서, 검색 폼을 만드는 GetSearchForm 함수도 통채로 수정
{{{#!vim perl