From 39fe205a0db4c322660e0fbf7c54d4dad8f6ed40 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Wed, 8 Dec 2010 10:02:29 +0100
Subject: [PATCH] Move qualification start to SCX::Track

---
 SCX/Reader.pm |  7 ++-----
 SCX/Track.pm  | 15 +++++++++++++++
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/SCX/Reader.pm b/SCX/Reader.pm
index 72dcb25..08c7288 100644
--- a/SCX/Reader.pm
+++ b/SCX/Reader.pm
@@ -318,12 +318,9 @@ sub qualification_packet {
 		|| $bytes[4] != 0xFF
 		|| $bytes[5] != 0xFF;
 
-	for my $car (0..5) {
-		$self->track->car($car)->set_lap(undef);
-		$self->track->car($car)->set_laptime(undef);
-	}
+	$self->track->qualification_start;
 
-	return $msg; # FIXME - to be implemented
+	return $msg;
 }
 
 
diff --git a/SCX/Track.pm b/SCX/Track.pm
index 4e0e722..21f3ab4 100644
--- a/SCX/Track.pm
+++ b/SCX/Track.pm
@@ -119,5 +119,20 @@ sub check_best_lap {
 	return 0;
 }
 
+sub qualification_start {
+	my ($self) = @_;
+
+	return if $self->{qualification_running};
+	for my $car (0..5) {
+		$self->car($car)->set_lap(undef);
+		$self->car($car)->set_laptime(undef);
+	}
+
+	$self->{qualification_running};
+	$self->{gui}->lap('Qualification');
+	$self->{gui}->time('00:00');
+	$self->{gui}->best_lap('0:00');
+}
+
 1;
 
-- 
2.43.0