my $cur_time = time2str("%c", time) ;
$dbh->do("UPDATE Schedules SET Date = ? WHERE ID = ?",
   undef, $cur_time, $id) ;