▼変更対象の変数
905行目 my
%param = ('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 のメモ );
907行目
$param['type'] = $in['type'];
908行目
$param['year'] = $in['year'];
909行目
$param['month'] = $in['month'];
910行目 print qq( <a href="$script) . &url_param(
%param) . qq(">予定表に戻る</a>);
1055行目 my
%param = ('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);
1333行目 my
%param = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
1334行目 my $url = $script . &url_param(
%param);
1446行目 my
%param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
1447行目 $url = $script . &url_param(
%param);
1449行目
$param['type'] = $in['type'];
1450行目
$param['year'] = $in['year'];
1451行目
$param['month'] = $in['month'];
1452行目 $url = $script . &url_param(
%param);
1482行目 my
%param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
1483行目 my $url = $script . &url_param(
%param);
1485行目
$param['type'] = $in['type'];
1486行目
$param['year'] = $in['year'];
1487行目
$param['month'] = $in['month'];
1488行目 $url = $script . &url_param(
%param);
1655行目 my
%param = @_;
1658行目 foreach (sort keys
%param) {
1659行目 if (
$param["$_"]) {
1661行目 $url .= "?" . $_ . qq(=
$param["$_"]);
1664行目 $url .= "&" . $_ . qq(=
$param["$_"]);