目次pyukiwiki0.1.9の導入ダウンロードpyukiwiki0.1.9の修正・改変
各種改修情報サイト
カスタマイズ表内の文字位置を上端揃えに
if ($tmp =~ /[\,\|]h$/) { push(@result, join('', '<thead,'</tr></thead>')); } elsif ($tmp =~ /[\,\|]f$/) { push(@result, join('', '<tfoot,'</tr></tfoot>')); } elsif ($tmp !~ /[\,\|]c$/) { push(@result, join('', '<tr, '</tr>')); }
if ($tmp =~ /[\,\|]h$/) { push(@result, join('', '<thead,'</tr></thead>')); } elsif ($tmp =~ /[\,\|]f$/) { push(@result, join('', '<tfoot,'</tr></tfoot>')); } elsif ($tmp !~ /[\,\|]c$/) { push(@result, join('', '<tr valign="top", '</tr>')); # ←koala 「 valign="top"」追加 }
ページの印刷時に、メニューバーやタイトルバー、フッターを印刷しないようにする
div.header {display: none;} div.navigator {display: none;} td.menubar {display: none;} div.footer {display: none;}
<link rel="stylesheet" href="$skin::default_css" type="text/css" media="screen,print" charset="Shift_JIS" /> <link rel="stylesheet" href="$skin::print_css" type="text/css" media="print" charset="Shift_JIS" />
$::css_dir = "$::skin_dir/css";
$skin::print_css = "$::skin_uri/print.css";
ページヘッダー(一番上の欄)のページ名をクリックすると、そのページに飛ぶようにする
<1> <h1 class="title"><a title="$::resource{searchthispage}" href="$::script?cmd=search&mymsg=$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1> <a href="$::script?$cookedpage">$::script?$skin::cookedpage</a> <2> <h1 class="title"><a title="@{[&::htmlspecialchars($skin::page)]}" href="$::script?$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1> gifファイルに[[>]]でリンクしたときに、画像が表示されてしまうのを、非表示選択可能にする<pyukiwiki.ini> $::graph_disp = 0; #koala H24.8.28; [[]]内での画像アドレスへのリンクで、画像を表示する:1、表示しない:0 <img.inc> sub plugin_img_convert { ・・・ if ($uri =~ /\.(gif|png|jpe?g)$/i) { if ($module == 1) { #koala H24.8.28 FROM 下のIFブロックを追加 if ($::graph_disp == 0) { return ''; } else { # 必要であれば、この部分を拡張する。 $res .= "<a href=\"$uri\"><img src=\"$uri\" /></a>\n"; ←もともとはこれのみ } # TO
各種バグの解決
IE以外のブラウザでうまく動作しない機能がある
全角文字添付ファイル名の件
sub attach_form { my $page = $::form{mypage}; #split(/,/, shift); # $r_page = rawurlencode($page); # my $r_page = $page; # 全角ページ名でもうまくリストが表示されるように koala H24.4.20 my $r_page = &::encode($page); #←ページ名をコード化 my $s_page = &::htmlspecialchars($page); my $navi =<<"EOD"; #ahref内で、生のページ名「$page」をコード化ページ名「$r_page」に変更 <span class="small"> [<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list&refer=$r_page">$::resource{'attach_msg_listpage'}</a>] [<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list">$::resource{'attach_msg_listall'}</a>] </span><br /> EOD
# $url = "$::script?cmd=attach&pcmd=open" # . "&file=$name&mypage=$page&refer=$page"; # 日本語ページ名・ファイル名がrefでうまく参照できない不具合の修正 $url = "$::script?cmd=attach&pcmd=open" . "&file=" . &::encode($name) . "&mypage=" . &::encode($page) . "&refer=" . &::encode($page) ; 編集画面で、編集ウインドウ上方の入力支援キー(「B I U・・・」)が使えない件
<script type="text/javascript" src="js/edit.js"></script> 「ls2」プラグインでリスト各ページの見出しにリンクで飛べない件
<旧> foreach (@txt) { chomp; if (/^(\*{1,3})(.+)/) { &back_push('ul', length($1), \@tocsaved, \@tocresult); push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n)); $tocnum++; } }
<新> my $body = '';のあとあたりで my $r_page; という局所変数宣言をしておいた上で、foreach (@txt)のループ内を下記のように変更 foreach (@txt) { chomp; if (/^(\*{1,3})(.+)/) { &back_push('ul', length($1), \@tocsaved, \@tocresult); $r_page=&encode($page); #←追加(タイトルのリンクのページ名をコード化) # push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #同上。コード化していないページ名へのリンクをやめて、 push(@tocresult, qq( <li><a href="$::script?$r_page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #同上。 コード化したページ名へのリンクとする $tocnum++; } } 「#contents」で同一ページ内にページ名指定したものと無指定のものを順に記載すると無指定の方のリンク先アドレスに先の指定ページ名が引き継がれてしまう件
#contents(別ページ名) ←(1) #contents ←(2)
(1) my @args = &func_get_args(shift); my $page; if (@args > 0) { $page = $args[0]; (2) my @args = &func_get_args(shift); my $page; $::pushedpage =""; #←追加(H24.5) # 同一ページでページ名指定の#contentsのあとに無指定の#contentsが存在する場合に、 # 無指定の方で先に指定したページ名が引き継がれてしまうことを防止するために初期化用に挿入 if (@args > 0) { $page = $args[0];
全角ページ名のページ内のアンカー([#○○])に「ページ名#アンカー名」のリンクで飛べない件
$chunk = get_fullname($chunk, $::form{mypage}); $cookedchunk = &rawurlencode($chunk); my @echunk=split('#',$chunk); #H24.8.3追加(koala) my $encchunk=&::encode(@echunk[0]) . '#' . &::encode(@echunk[1]) ; #H24.8.3追加(koala) if ($::database{$chunk}) { return qq(<a title="$chunk" href="$::script?$cookedchunk">$escapedchunk</a>); } elsif (($chunk =~ /^([^#]*)#/) && $::database{$1}) { # return qq(<a title="$chunk" href="$::script?$chunk">$escapedchunk</a>); return qq(<a title="$chunk" href="$::script?$encchunk">$escapedchunk</a>); #H24.8.3追加(koala) } elsif (&is_editable($chunk)) { return qq($escapedchunk<a title="$::resource{editthispage}" class="editlink" href="$::script?cmd=edit&mypage=$cookedchunk">$editchar</a>); } return $escapedchunk; } } sub get_fullname { |