KENT-WEB サポートコーナー 過去ログ [ 0119 ]


記事No: 13994
投稿日: 2015/05/09(Sat) 13:38:16
タイトルWeb Schedulerの毎年同じ内容を表示させる改造
ID情報: farm
投稿者: aiam
URLhttp://hn-2.sakura.ne.jp/

KENT様、皆様お邪魔します。
現在Web Scheduler/WEBスケジューラーを設置し利用しております。

利用していて一つ感じたのですが誕生日など毎年同じ日にくるものを設定/反映する改造は難しいものでしょうか?

難しければ一つ一つ毎年入力していきますのでご回答頂ければ幸いです。

aiam
(動作の確認はできている&非公開サイトにて利用しているため白紙URLで申し訳ありません/タイトルをわかりやすいものに変更させて頂きました。本質問は回答頂いた通りに解決済みです。ありがとうございます。)


記事No: 13996
投稿日: 2015/05/10(Sun) 23:33:57
タイトルRe: Web Schedulerの改造
ID情報: hirayama
投稿者: hirayama
URLhttp://shade-search.com/sts/fsw/wiki.cgi

> 利用していて一つ感じたのですが誕生日など毎年同じ日にくるものを設定/反映する改造は難しいものでしょうか?

これはできれば、記念日をWEB上で追加、編集できるようになるといいと思いますが、そうなるとかなり
あちこち変更する必要がありそうですね。

以下はとりあえず最低限の変更で済ませる方法です。
schedule.cgiの sub list_calen 内だけを編集します。

# 祝日定義
my %hol = holiday::holi_mon($in{y},$in{m});
の下あたり、120行目辺りに

# 記念日定義
my %memorial = ('0101'=>'〇〇の誕生日','0303'=>'□□の誕生日');
my %mem;
foreach (keys %memorial) {
if (substr($_,0,2) == $in{m}) {
$mem{substr($_,2,2)} = $memorial{$_};
}
}

を追加し、
その下の

# 祝日チェック
my $css_week;
if (defined($hol{$d})) {
$css_week = "color:$cf{wkcol}[7];";
$act{$i} = qq|<span style="$css_week;font-size:smaller">$hol{$d}</span><br />$act{$i}|;
$tim{$i} = "&nbsp;<br />$tim{$i}";
} else {
$css_week = "color:$cf{wkcol}[$w];";
}

の下に

if (defined($mem{$d})) {
$act{$i} .= qq|<span style="color:blue;font-size:smaller">$mem{$d}</span><br />|;
}

を追加します。
記念日の追加、修正は直接 %memorial を変更することになります。


記事No: 13998
投稿日: 2015/05/12(Tue) 11:09:24
タイトルRe^2: Web Schedulerの改造
ID情報: farm
投稿者: aiam
URLhttp://hn-2.sakura.ne.jp/

hirayama様

初めまして。丁寧にありがとうございました!
無事に書き換えを行うことができ、動作しました。

色々なサイトや書籍を参考にしながら今後は自力解決できるように努力していきます。
この度はお世話になりました。本当にありがとうございます!

aiam


[検索ページ] [掲示板]