321 | $history[$i-1] .= $_;
|
$history_list[$i-1] .= $_;
|
322 | $history[$i] = '';
|
$history_list[$i] = '';
|
500 | while ($init[$ex_line] =~ /^#+/) {
|
while ($init_list[$ex_line] =~ /^#+/) {
|
501 | $memo = $init[$ex_line];
|
$memo = $init_list[$ex_line];
|
683 | $val["$name"] = $value;
|
$val_list["$name"] = $value;
|
703 | if ($cfg && exists $val["$cfg"] && $line =~ /^\s*\$$cfg\s*=\s*/) {
|
if ($cfg && exists $val_list["$cfg"] && $line =~ /^\s*\$$cfg\s*=\s*/) {
|
705 | if ($val["$cfg"] =~ /^\d+$/) {
|
if ($val_list["$cfg"] =~ /^\d+$/) {
|
706 | $value = $val["$cfg"];
|
$value = $val_list["$cfg"];
|
708 | $val = $val["$cfg"];
|
$val = $val_list["$cfg"];
|
723 | if ($oval ne $val["$cfg"]) {
|
if ($oval ne $val_list["$cfg"]) {
|
728 | push($config_value,qq($cfg<>) . $val["$cfg"] . qq(\n));
|
push($config_value,qq($cfg<>) . $val_list["$cfg"] . qq(\n));
|
905 | my %param = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
my %param_hash = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
906 | print qq(<a href="$script) . &url_param(%param) . qq(">$yy年$mm月</a>$dd日($week_com) $holiday のメモ );
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(">$yy年$mm月</a>$dd日($week_com) $holiday のメモ );
|
907 | $param['type'] = $in['type'];
|
$param_list['type'] = $in['type'];
|
908 | $param['year'] = $in['year'];
|
$param_list['year'] = $in['year'];
|
909 | $param['month'] = $in['month'];
|
$param_list['month'] = $in['month'];
|
910 | print qq( <a href="$script) . &url_param(%param) . qq(">予定表に戻る</a>);
|
print qq( <a href="$script) . &url_param(%param_hash) . qq(">予定表に戻る</a>);
|
992 | $file["$link"] = $file;
|
$file_list["$link"] = $file;
|
1005 | if ($w && $h) { $wh["$link"] = qq(width="$w" height="$h"); }
|
if ($w && $h) { $wh_list["$link"] = qq(width="$w" height="$h"); }
|
1006 | else { $wh["$link"] = ""; }
|
else { $wh_list["$link"] = ""; }
|
1013 | my $decode_name = &url_decode($file["$key"]);
|
my $decode_name = &url_decode($file_list["$key"]);
|
1014 | if ($wh["$key"]) {
|
if ($wh_list["$key"]) {
|
1015 | print qq(<div style="margin:0.5em"><a href="$tmp"><img src="$tmp" $wh["$key"] border="0" alt="decode_name" title="$decode_name\n$fsize["$key"]"></a> <a href="$script?mode=del_file&date=$in['date']&file=$file["$key"]">削除</a></div>);
|
print qq(<div style="margin:0.5em"><a href="$tmp"><img src="$tmp" $wh_list["$key"] border="0" alt="decode_name" title="$decode_name\n$fsize["$key"]"></a> <a href="$script?mode=del_file&date=$in['date']&file=$file_list["$key"]">削除</a></div>);
|
1017 | print qq(<div style="margin:0.5em"><a href="$tmp" title="$decode_name\n$fsize["$key"]"><img src="./clip.gif" border="0" alt="$decode_name">$decode_name</a> <a href="$script?mode=del_file&date=$in['date']&file=$file["$key"]">削除</a></div>);
|
print qq(<div style="margin:0.5em"><a href="$tmp" title="$decode_name\n$fsize["$key"]"><img src="./clip.gif" border="0" alt="$decode_name">$decode_name</a> <a href="$script?mode=del_file&date=$in['date']&file=$file_list["$key"]">削除</a></div>);
|
1055 | my %param = ('before_year'=>$in['before_year'],'show_year'=>$in['show_year'],'type'=>$in['type'],'year'=>$in['year'],'month'=>$in['month']);
|
my %param_hash = ('before_year'=>$in['before_year'],'show_year'=>$in['show_year'],'type'=>$in['type'],'year'=>$in['year'],'month'=>$in['month']);
|
1056 | print qq(<a href="$script) . &url_param(%param) . qq(">予定表に戻る</a>\n);
|
print qq(<a href="$script) . &url_param(%param_hash) . qq(">予定表に戻る</a>\n);
|
1333 | my %param = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
my %param_hash = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
1334 | my $url = $script . &url_param(%param);
|
my $url = $script . &url_param(%param_hash);
|
1446 | my %param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
my %param_hash = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
1447 | $url = $script . &url_param(%param);
|
$url = $script . &url_param(%param_hash);
|
1449 | $param['type'] = $in['type'];
|
$param_list['type'] = $in['type'];
|
1450 | $param['year'] = $in['year'];
|
$param_list['year'] = $in['year'];
|
1451 | $param['month'] = $in['month'];
|
$param_list['month'] = $in['month'];
|
1452 | $url = $script . &url_param(%param);
|
$url = $script . &url_param(%param_hash);
|
1482 | my %param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
my %param_hash = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
1483 | my $url = $script . &url_param(%param);
|
my $url = $script . &url_param(%param_hash);
|
1485 | $param['type'] = $in['type'];
|
$param_list['type'] = $in['type'];
|
1486 | $param['year'] = $in['year'];
|
$param_list['year'] = $in['year'];
|
1487 | $param['month'] = $in['month'];
|
$param_list['month'] = $in['month'];
|
1488 | $url = $script . &url_param(%param);
|
$url = $script . &url_param(%param_hash);
|
1655 | my %param = $_;
|
my %param_hash = $_;
|
1658 | foreach (sort keys %param) {
|
foreach (sort keys %param_hash) {
|
1659 | if ($param["$_"]) {
|
if ($param_list["$_"]) {
|
1661 | $url .= "?" . $_ . qq(=$param["$_"]);
|
$url .= "?" . $_ . qq(=$param_list["$_"]);
|
1664 | $url .= "&" . $_ . qq(=$param["$_"]);
|
$url .= "&" . $_ . qq(=$param_list["$_"]);
|
1711 | $cook[$key] = $val;
|
$cook_list[$key] = $val;
|
1715 | foreach ( split(/<>/, $cook['CALENDAR']) ) {
|
foreach ( split(/<>/, $cook_list['CALENDAR']) ) {
|