From 663e65fa6cfa7205ee50aaf358dc30b42b44e17a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 13 Jul 2011 15:39:57 +0200
Subject: db-fakedisplay: Ignore platform parts

---
 bin/db-fakedisplay | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/db-fakedisplay b/bin/db-fakedisplay
index f9a4831..11a2cbe 100755
--- a/bin/db-fakedisplay
+++ b/bin/db-fakedisplay
@@ -34,7 +34,7 @@ my $status = Travel::Status::DE::DeutscheBahn->new(
 my @params;
 
 for my $platform (@platforms) {
-	my $info = first { $_->platform eq $platform } $status->results;
+	my $info = first { $_->platform =~ m{ ^ $platform (?: \s | $ )}x } $status->results;
 
 	if (not defined $info) {
 		push(@params, {
@@ -48,7 +48,7 @@ for my $platform (@platforms) {
 		train => $info->train,
 		via => [ map { { stop => $_ } } $info->route_interesting(3) ],
 		destination => $info->destination,
-		platform => $info->platform,
+		platform => (split(/ /, $info->platform))[0],
 		info => $info->info,
 	});
 }
-- 
cgit v1.2.3