bin/hafas

@@ -217,7 +217,7 @@ sub show_similar_stops {
 sub display_occupancy {
 	my ($occupancy) = @_;
 
-	if (not defined $occupancy) {
+	if ( not defined $occupancy ) {
 		return q{?};
 	}
 	if ( $occupancy == 1 ) {
@@ -297,12 +297,16 @@ for my $res ( $hafas->connections ) {
 	}
 
 	my $negative_transfer;
+	my $part_cancelled;
 
 	my $glance = q{};
 	for my $sec ( $res->sections ) {
 		if ( $sec->type ne 'JNY' ) {
 			next;
 		}
+		if ( $sec->dep_cancelled or $sec->arr_cancelled ) {
+			$part_cancelled = 1;
+		}
 		if ( defined $sec->transfer_duration ) {
 			if ( $sec->transfer_duration->in_units('minutes') >= 0 ) {
 				$glance .= sprintf(
@@ -321,18 +325,20 @@ for my $res ( $hafas->connections ) {
 		}
 	}
 
-	if ( $cancelled or $negative_transfer ) {
+	if ( $cancelled or $negative_transfer or $part_cancelled ) {
 		printf(
-			"--:--  (%02d:%02d)  %s  %s  %s\n",
+			"%s  (%02d:%02d)  %s  %s  %s\n",
+			$res->dep->strftime('XX.XX. %H:%M'),
 			$res->duration->in_units( 'hours', 'minutes' ),
 			$res->arr->strftime('%H:%M'),
-			display_occupancies( $res->load ), $glance
+			display_occupancies( $res->load ),
+			$glance
 		);
 	}
 	else {
 		printf(
 			"%s  (%02d:%02d)  %s  %s  %s\n",
-			$res->dep->strftime('%H:%M'),
+			$res->dep->strftime('%d.%m. %H:%M'),
 			$res->duration->in_units( 'hours', 'minutes' ),
 			$res->arr->strftime('%H:%M'),
 			display_occupancies( $res->load ),