my $hr = $2;
$hr = "0$hr" if length $hr < 2;
push @tsbeginold, "$hr:$3:00";
- push @tsbegin, Time::Local::timelocal 0, $3, $hr, 1, 0, 1970;
+ push @tsbegin, Time::Local::timegm 0, $3, $hr, 1, 0, 1970;
print " found beginning: $hr:$3\n";
}
}
my $hr = $2;
$hr = "0$hr" if length $hr < 2;
push @tsendold, "$hr:$3:00";
- push @tsend, Time::Local::timelocal 0, $3, $hr, 1, 0, 1970;
+ push @tsend, Time::Local::timegm 0, $3, $hr, 1, 0, 1970;
print " found ending: $hr:$3\n";
}
}
$row{"reason"}, "rrb_interval" => $row{"fixed"} };
}
-# delete old table
+# delete old tables
IServ::DB::Exec "DROP TABLE mod_roomreservation_bookings_old;";
+IServ::DB::Exec "DROP TABLE rooms_archive;";
print "done.\n";