From 523817239799733c15b900506ad57c5fc87c29de Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 19 Nov 2011 19:55:37 +0100
Subject: sanitize platform number, add platform_db accessor

---
 lib/Travel/Status/DE/VRR.pm        | 7 +++++++
 lib/Travel/Status/DE/VRR/Result.pm | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib/Travel')

diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm
index f976c1e..065d56c 100644
--- a/lib/Travel/Status/DE/VRR.pm
+++ b/lib/Travel/Status/DE/VRR.pm
@@ -187,12 +187,19 @@ sub results {
 		my $countdown = $e->getAttribute('countdown');
 		my $delay     = $e_info->getAttribute('delay') // 0;
 
+		my $platform_is_db = 0;
+
+		if ( $platform =~ s{ ^ \# }{}ox ) {
+			$platform_is_db = 1;
+		}
+
 		push(
 			@results,
 			Travel::Status::DE::VRR::Result->new(
 				date        => $rdate,
 				time        => $rtime,
 				platform    => $platform,
+				platform_db => $platform_is_db,
 				line        => $line,
 				destination => decode( 'UTF-8', $dest ),
 				countdown   => $countdown,
diff --git a/lib/Travel/Status/DE/VRR/Result.pm b/lib/Travel/Status/DE/VRR/Result.pm
index 93e651f..9fdd826 100644
--- a/lib/Travel/Status/DE/VRR/Result.pm
+++ b/lib/Travel/Status/DE/VRR/Result.pm
@@ -9,7 +9,7 @@ use parent 'Class::Accessor';
 our $VERSION = '0.02';
 
 Travel::Status::DE::VRR::Result->mk_ro_accessors(
-	qw(countdown date delay destination info line platform sched_date sched_time time type)
+	qw(countdown date delay destination info line platform platform_db sched_date sched_time time type)
 );
 
 sub new {
-- 
cgit v1.2.3