+sub recalc_qual_distance {
+ my ($self, $time_first) = @_;
+
+ return if !defined $self->{best_lap} || $self->{best_lap} <= 0;
+
+ $self->{total_time} = undef;
+ $self->{time_diff} = undef;
+ $self->{grey_diff} = undef;
+ $self->{lap_diff} = undef;
+
+ if ($self->{best_lap} == $time_first) {
+ $self->{total_time} = $self->{best_lap};
+ } else {
+ $self->{time_diff} = $self->{best_lap} - $time_first;
+ }
+
+ $self->gui->set_distance($self->{order}, $self->{total_time},
+ $self->{lap_diff}, $self->{time_diff}, $self->{grey_diff});
+}
+