[ encoding = "Shift_JIS (LF)" この文章は LF 改行なので Windows 9x/Meのメモ帳で開いてはいけません。 ]
[ タイトル ] : stylesheet changer for IEを動作させる為の改造
[ UpDate ] : -04/Dec/2004
この文章は、Edition 11(第十一版)専用です。
この改造(修正)は、次回アップデート Edition 12(第十二版)で機能追加されます。
-------------------------------------------------------------------------
1: 以下の様に yyini.cgi(設定CGI)の設定項目に(変数を)追加します。
追加リンク(link)要素 $link_tag の下行辺りが作業しやすいでしょう。
# 追加 Script要素。
$js_tag = <<"_TAG";
_TAG
-------------------------------------------------------------------------
2: 以下の様に yyini.cgi(設定CGI)のHTMLヘッダ出力(sub header)関数を上書きします。
#--------------#
# HTMLヘッダ #
#--------------#
sub header {
$headflag = 1;
local($cd_s, $cd_e);
if ($x_mode) { $cd_s = ""; } else { $cd_s = ''; $cd_e = ''; }
if (!$css_on) { $css_tag = ''; $xml_css = ''; }
print "Content-type: $ht_mine\n\n";
print "$xml_ver$xml_css$doctype$ht_top\n";
print "";
if (!($xht_ba || $m_mode)) { print "\n"; } else { $js_tag = '';}
if ($css_on) { print "\n"; }
if ($meta_tag ne '') { print "$meta_tag"; }
if ($css_tag ne '') { print "$css_tag"; }
if ($link_tag ne '') { print "$link_tag"; }
if ($js_tag ne '') { print "$js_tag"; }
# アイコン一覧用 JavaScriptを使用する
if ($ImageView == 1 && $_[0] eq "ImageUp") {
print "\n";
}
print "$title\n\n";
if ($xht_1t) { print "$tr_body\n"; } else { print "$st_body\n"; }
# UserAgent デバッグ (動作確認用)
print "\n";
}
-------------------------------------------------------------------------
おまけ : もしIEのみで script を動かしたい場合は、上記関数の一部分
if ($js_tag ne '') { print "$js_tag"; }
を、
if ($js_tag ne '' && $ua_NS =~ /IE /) {
print "$js_tag";
}
の様にすれば、UserAgent判定で IE 全般の場合 script 要素を出力します。
もしも、IE 6.0専用で動かしたいのであれば、
if ($js_tag ne '' && $ua_NS eq 'IE 6') {
print "$js_tag";
}
とすれば良いでしょう。