single layout: strip non-numeric platform parts for now2.3.12

1 files changed, 20 insertions, 0 deletions

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index aad1290..b062c9d 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -245,6 +245,26 @@ sub startup {
 		}
 	);
 
+	$self->helper(
+		'numeric_platform_part' => sub {
+			my ( $self, $platform ) = @_;
+
+			if ( not defined $platform ) {
+				return 0;
+			}
+
+			if ( $platform =~ m{ ^ \d+ $ }x ) {
+				return $platform;
+			}
+
+			if ( $platform =~ m{ (\d+) }x ) {
+				return $1;
+			}
+
+			return 0;
+		}
+	);
+
 	my $r = $self->routes;
 
 	$r->get('/_redirect')->to('static#redirect');