![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
|
Counter: 351,
today: 1,
yesterday: 0
出勤状況を座席表で確認できるツールのバグを管理するページです。 ■・・・完了 □・・・継続 ▲・・・暫定対処完了
■Bug#24 出勤状況を更新するとある島が全て同じ人になってしまう。 †
□Bug#23 今日のお知らせを表示して欲しい。 †
□Bug#22 備考の文字が小さくて読みづらい。 †
□Bug#21 memberinfo.txtにフル情報を入れないとPC ON/OFF情報が表示されない。 †
■Bug#20 高速化のため、表示のみのときはcgiではなくhtmlを表示するようにして欲しい。 †
■Bug#19 部長も表示したい。 †
■Bug#18 zaseki_data配下に不正なファイルがあると個別更新が行えない。 †
□Bug#17 FireFox?、Safariだとポップアップテキストが表示されない。 †
■Bug#16 座席を表示すると不正なファイルzaseki_data/zaseki.txtが生成される。 †
2009年4月29日対処(版)。 すべて更新か →NO→チェックしたチームをすべて更新か →NO→クリックしたチームをすべて更新 →NO→個別更新 という風に判断してしまっていた。 すべて更新か →NO→チェックしたチームをすべて更新か →NO→クリックしたチームをすべて更新 →NO→押されたボタンを解析して得られた内線番号を格納する変数に4桁の番号が入っているか →YES→個別更新 というフローに変更した。 ソースイメージはline156を - }else{
+ }elsif($naisen =~/[0-9]{4}/){
■Bug#15 各座席から電子社員録の個人URLにリンクして欲しい。 †
■Bug#14 座席表に顔写真を載せて欲しい。 †
□Bug#13 更新フォームも座席表の形にして欲しい。 †
▲Bug#12 チームごとの識別も色で行いたい。 †
■Bug#11 課長席の空箱を表示しないようにして欲しい。 †
■Bug#10 逆向きをブックマークに保存したい。 †
■Bug#9 備考欄が2行のとき逆向きの座席表の表示がずれる。 †
■Bug#8 FireFox?で表示するとHTMLのソースが表示されてしまう。 †
□Bug#7 HTML::Template等を使用してプログラムとHTMLを分けたほうが良い。 †□Bug#6 社内システムと連動し、事前に投入している年休などは自動取得するようにして欲しい。 †
■Bug#5 個人PCの電源ON/OFF監視もして座席の色を灰色に変えて欲しい。 †
■Bug#4 半日年休などにも対応して欲しい。 †
■Bug#3 全チーム一括更新したい。 †
■Bug#2 座席表を反転させた状態で更新した場合、反転させた座席表に戻るようにして欲しい。 †
■Bug#1 zaseki_data配下に不正な.txtがあるとデータが壊れる。 †
sub shima{
my $filename=$_[0];
my $count=0;
my $k_count=100;
my @line;
my $teamcolor="";
my $team_name="";
$filename=~/zaseki([0-9])\.txt/;
my $teamnum=$1;
open(F,$filename);
while(<F>){
if($_=~/teamname=([\S\s]+),gaisen=([0-9\-\/\s]+),color=(\#[a-zA-Z0-9]+)/){
if($gyaku==0){
$team_name= &setteamname("$1","$2","$teamnum");
$teamcolor=$3;
}elsif($gyaku==1){
$team_name=$_;
}
}
if($_=~/^color=(\#[a-zA-Z0-9]+)/){
if($gyaku==0){
$teamcolor=$1;
}elsif($gyaku==1){
$line[$linecnt]=$_;
$linecnt++;
}
}
elsif($_=~/^([A-Z_]+)/){
if($gyaku==0){
$team_name=&make_sotowaku("$1","$team_name");
}elsif($gyaku==1){
$line[$linecnt]=$_;
$linecnt++;
if($_=~/^SHIMA_END/){
$line[$linecnt]=$team_name;
$linecnt++;
}
}
}
elsif($_=~/([0-9]*),([0-9\-]*),(\S*),(\S*),([\S\s]*),([0-9]*)/){
if($gyaku==0){
&zaseki_print("$1","$3","$4","$5","$6","$2","$teamcolor","1");
}elsif($gyaku==1){
$line[$linecnt]=$_;
$linecnt++;
}
next;
}
elsif($_=~/([0-9]*),(\S*),(\S*),([\S\s]*),([0-9]*)/){
if($gyaku==0){
&zaseki_print("$1","$2","$3","$4","$5","","$teamcolor","0");
}elsif($gyaku==1){
$line[$linecnt]=$_;
$linecnt++;
}
}
}
close(F);
$team_name="<font size = \"$fontsize{name}\"> </font>";
if($gyaku==1){
my $team_name_tmp="";
for ($index=$linecnt;$index>=0;$index--){
if($line[$index]=~/teamname=([\S\s]+),gaisen=([0-9\-\/\s]+),color=(\#[a-zA-Z0-9]+)/){
if($line[$index] ne $team_name_tmp){
$team_name= &setteamname("$1","$2","$teamnum");
$teamcolor=$3;
$team_name_tmp=$line[$index];
}else{
$team_name="<font size = \"$fontsize{name}\"> </font>";
}
}
if($line[$index]=~/^color=(\#[a-zA-Z0-9]+)/){
$teamcolor=$1;
}
elsif($line[$index]=~/^([A-Z_]+)/){
$team_name=&make_sotowaku("$1","$team_name");
}
elsif($line[$index]=~/([0-9]*),([0-9\-]*),(\S*),(\S*),([\S\s]*),([0-9]*)/){
&zaseki_print("$1","$3","$4","$5","$6","$2","$teamcolor","1");
next;
}
elsif($line[$index]=~/([0-9]*),(\S*),(\S*),([\S\s]*),([0-9]*)/){
&zaseki_print("$1","$2","$3","$4","$5","","$teamcolor","0");
}
}
}
} <meta http-equiv=Refresh content=300> sub print_marquee{
require "zaseki_data/jcode.pl";
my $marqueeline="";
my @hidden=("=================================",
"------------------------------",
"※座席表：",);
my $shukkinflg=0;
my $today = sprintf("%04d.%02d.%02d", $year + 1900, $mon +1, $mday);
my $filename="C:/Inetpub/ftproot/asami/asami\($today\).txt";
if( -f $filename){
open(ASAMI,"$filename");
while(<ASAMI>){
jcode::convert(\$_, "euc");
my $hiddenflg=0;
foreach $hiddenline (@hidden){
if($_=~/$hiddenline/){$hiddenflg=1;}
}
if($_=~/◆出勤状況/){
$shukkinflg=1;
$marqueeline .= " ◆出勤状況 ↓座席表を見てください。";
}
if($_=~/◆部長・課長/){ $shukkinflg=0;}
if($hiddenflg==0 && $shukkinflg==0){
chomp($_);
$marqueeline .= " $_";
}
}
close(ASAMI);
$marqueeline .= " ※まずはSSC/ISCチームでお試し表示しています。軌道に乗ったらASチームの朝ミ内容も表示したいと考えています。";
}else{
$marqueeline .= " ※本日未更新です。";
}
return <<EOL;
<table><tr>
<td width="80" align="center"><b>朝ミより</b></td>
<td width="900"><marquee scrolldelay="100">$marqueeline</marquee></td>
</tr></table>
<hr>
EOL
}
print ZASEKIHTML<<"EOL"; <hr> $maraueeline $irosetsumei
# if($name=~/BU/ || $name=~/部長/ ){ # $bordercolor=""; # } |
