▼変更対象の変数
920行目 my (@guest_list,
@kigen,@mail);
930行目
$kigen[$guest_count] = $guest_list[$guest_count] + $kikan * 3600 * 24;
931行目 if (
$kigen[$guest_count] < time) {
937行目
$kigen[$guest_count] = 0;
950行目 my $opc = (int((
$kigen[$count] - time) / (
$kigen[$count] - $guest_list[$count]) * 100) / 100) + 0.1;
954行目 if (!
$kigen[$count]) {
963行目 my $com = qq(?Q?X?g?A?J?E???g$guest_list[$count]\n) . &presenttime(
$kigen[$count]) . qq(???L??);
1839行目 my
$kigen = param('time') + $del_day * 3600 * 24;
1840行目 my $tmp = &presenttime(
$kigen);
2264行目 my
$kigen = &presenttime(param('time') + param('kigen') * 3600 * 24);
2265行目
$kigen =~ s/:\d{2}$//;
2327行目 my
$kigen = &presenttime(param('time') + param('kigen') * 3600 * 24);
2328行目
$kigen =~ s/:\d{2}$//;
2524行目 my
$kigen = &presenttime($tm + $kday * 3600 * 24);
2525行目
$kigen =~ s/:\d{2}$//;
2566行目 my
$kigen = param('kigen');
2567行目 chomp
$kigen;
2570行目
$kigen = 0 if !
$kigen;
2572行目 if ((!
$kigen && $count eq $max_day{"$id"}) || $count eq
$kigen) {
2578行目 if (
$kigen eq 'p') {