my $date = RT::Date->new( $session{CurrentUser} );
$date->Set( Format=>'unix', Value=>$starts, );
my($srv, $smsg) = $ticket->SetStarts( $date->ISO );
my $date = RT::Date->new( $session{CurrentUser} );
$date->Set( Format=>'unix', Value=>$starts, );
my($srv, $smsg) = $ticket->SetStarts( $date->ISO );