my $date = RT::Date->new( $session{CurrentUser} );
$date->Set( Format=>'unix', Value=>$starts, );
my($srv, $smsg) = $ticket->SetStarts( $date->ISO );
- $srv = 1 if ! $srv && /already the current value/i;
+ $srv = 1 if ! $srv && $smsg =~ /already the current value/i;
my $ddate;
unless ( ! $srv ) {