From 84eb1561ee2d78f2e30b1c9011cae7cb010f0959 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 28 Jun 2014 16:57:30 +0200 Subject: clean template: Show detail RIS / IRIS messages when hovering over a departure --- cgi/index.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'cgi/index.pl') diff --git a/cgi/index.pl b/cgi/index.pl index 1613438..83a3e30 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -132,7 +132,7 @@ sub handle_request { if ( @lines and not( any { $line =~ m{^$_} } @lines ) ) { next; } - my $info; + my ( $info, $moreinfo ); if ( $backend eq 'iris' ) { my $delaymsg = join( ', ', map { $_->[1] } $result->delay_messages ); @@ -154,9 +154,14 @@ sub handle_request { $info .= ' +++ '; } $info .= $qosmsg; + + $moreinfo = [ $result->messages ]; } else { $info = $result->info; + if ($info) { + $moreinfo = [ [ 'RIS', $info ] ]; + } } if ( $info eq '+0' ) { @@ -183,6 +188,7 @@ sub handle_request { destination => $result->destination, platform => $platform, info => $info, + moreinfo => $moreinfo, delay => $delay, } ); -- cgit v1.2.3