sub GetSearchForm { my ($result); ### 다음 부분을 변경 # $result = "Search: <input class=text type=text name='search' size=10>" # . $q->textfield(-name=>'search', -size=>12) # . &GetHiddenValue("dosearch", 1); $result = T('Search:') . " <input accesskey=\"s\"class=text type=text name='search' size=10>" . &GetHiddenValue("dosearch", 1); ### return $result; }
sub GetHeader { ... if ((!$embed) && ($LogoUrl ne "")) { $logoImage = "img src=\"$LogoUrl\" alt=\"$altText\" border=0"; if (!$LogoLeft) { $logoImage .= " align=\"right\""; } ### 다음 라인을 아래와 같이 바꾼다 # $header = &ScriptLink($HomePage, "<$logoImage>"); $header = "<a accesskey=\"w\" href=\"$ScriptName?$HomePage\"><$logoImage></a>"; ### } if ($id ne '') { ... }
sub GetHeader { ... $result .= $q->h1($header . $title); } ### 다음 라인 추가 $result .= "\n<div align=\"right\"><a accesskey=\"z\" name=\"#PAGE_TOP\" href=\"#PAGE_BOTTOM\">". T('Bottom') . "</a></div>\n"; ### if (&GetParam("toplinkbar", 1)) { # Later consider smaller size? ... }
sub GetMinimumFooter { # 함수의 본문을 통채로 바꾼다. # if ($FooterNote ne '') { # return T($FooterNote) . $q->end_html; # Allow local translations # } # return $q->end_html; my $result = ''; if ($FooterNote ne '') { $result .= T($FooterNote); # Allow local translations } $result .= "\n<div align=\"right\"><a accesskey=\"x\" name=\"#PAGE_BOTTOM\" href=\"#PAGE_TOP\">" . T('Top') . "</a></div>\n" . $q->end_html; return $result; }
sub GetTextArea { my ($name, $text, $rows, $cols) = @_; ### 이건 부등호 처리문제 패치에서 적용한 라인 $text =~ s/(\&)/\&/g; ### 아래의 두 return 문에 accesskey 값을 추가한다. # if (&GetParam("editwide", 1)) { # return $q->textarea(-name=>$name, -default=>$text, # -rows=>$rows, -columns=>$cols, -override=>1, # -style=>'width:100%', -wrap=>'virtual'); # } # return $q->textarea(-name=>$name, -default=>$text, # -rows=>$rows, -columns=>$cols, -override=>1, # -wrap=>'virtual'); if (&GetParam("editwide", 1)) { return $q->textarea(-accesskey=>'i', -name=>$name, -default=>$text, -rows=>$rows, -columns=>$cols, -override=>1, -style=>'width:100%', -wrap=>'virtual'); } return $q->textarea(-accesskey=>'i', -name=>$name, -default=>$text, -rows=>$rows, -columns=>$cols, -override=>1, -wrap=>'virtual'); ### }