diff options
Diffstat (limited to 'lib/Travel/Status/DE/IRIS/Result.pm')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index e7de4dd..7876b39 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -267,6 +267,7 @@ sub set_ar { my ( $self, %attrib ) = @_; if ( $attrib{status} and $attrib{status} eq 'c' ) { + $self->{has_realtime} = $self->{arrival_has_realtime} = 1; $self->{arrival_is_cancelled} = 1; } elsif ( $attrib{status} and $attrib{status} eq 'a' ) { @@ -331,6 +332,7 @@ sub set_dp { my ( $self, %attrib ) = @_; if ( $attrib{status} and $attrib{status} eq 'c' ) { + $self->{has_realtime} = $self->{arrival_has_realtime} = 1; $self->{departure_is_cancelled} = 1; } elsif ( $attrib{status} and $attrib{status} eq 'a' ) { |