switch to JSON API (WiP; basic functionality is present)

1 files changed, 1 insertions, 7 deletions

diff --git a/bin/efa-m b/bin/efa-m
index 03fd30b..7eb9211 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -288,10 +288,6 @@ sub show_results {
 			: $d->datetime->strftime('%H:%M')
 		);
 
-		if ( $d->platform_db ) {
-			$platform .= ' (DB)';
-		}
-
 		if (
 			   ( @grep_lines and none { $d->line eq $_ } @grep_lines )
 			or ( @grep_mots  and none { $d->mot_name eq $_ } @grep_mots )
@@ -326,7 +322,7 @@ sub show_results {
 		}
 
 		my $line = $d->line;
-		if ( length($line) > 10 and $d->train_type and $d->train_no ) {
+		if ( (length($line) > 10 or not $line) and $d->train_type and $d->train_no ) {
 			$line = $d->train_type . ' ' . $d->train_no;
 		}
 
@@ -615,8 +611,6 @@ None.
 
 =item * Travel::Status::DE::EFA(3pm)
 
-=item * XML::LibXML(3pm)
-
 =back
 
 =head1 BUGS AND LIMITATIONS