-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 |