Skip to content
Commits on Source (2)
......@@ -560,15 +560,15 @@ DISTRIBUTIONS
parent 0
strict 0
warnings 0
DateTime-Locale-1.40
pathname: D/DR/DROLSKY/DateTime-Locale-1.40.tar.gz
DateTime-Locale-1.41
pathname: D/DR/DROLSKY/DateTime-Locale-1.41.tar.gz
provides:
DateTime::Locale 1.40
DateTime::Locale::Base 1.40
DateTime::Locale::Catalog 1.40
DateTime::Locale::Data 1.40
DateTime::Locale::FromData 1.40
DateTime::Locale::Util 1.40
DateTime::Locale 1.41
DateTime::Locale::Base 1.41
DateTime::Locale::Catalog 1.41
DateTime::Locale::Data 1.41
DateTime::Locale::FromData 1.41
DateTime::Locale::Util 1.41
requirements:
Carp 0
Dist::CheckConflicts 0.02
......@@ -2551,18 +2551,18 @@ DISTRIBUTIONS
Test::Pod 0
Travel::Status::DE::IRIS 1.2
perl v5.20.0
Travel-Status-DE-DeutscheBahn-6.00
pathname: D/DE/DERF/Travel-Status-DE-DeutscheBahn-6.00.tar.gz
provides:
Travel::Status::DE::DeutscheBahn 6.00
Travel::Status::DE::HAFAS 6.00
Travel::Status::DE::HAFAS::Journey 6.00
Travel::Status::DE::HAFAS::Location 6.00
Travel::Status::DE::HAFAS::Message 6.00
Travel::Status::DE::HAFAS::Polyline 6.00
Travel::Status::DE::HAFAS::Product 6.00
Travel::Status::DE::HAFAS::Stop 6.00
Travel::Status::DE::HAFAS::StopFinder 6.00
Travel-Status-DE-DeutscheBahn-6.03
pathname: D/DE/DERF/Travel-Status-DE-DeutscheBahn-6.03.tar.gz
provides:
Travel::Status::DE::DeutscheBahn 6.03
Travel::Status::DE::HAFAS 6.03
Travel::Status::DE::HAFAS::Journey 6.03
Travel::Status::DE::HAFAS::Location 6.03
Travel::Status::DE::HAFAS::Message 6.03
Travel::Status::DE::HAFAS::Polyline 6.03
Travel::Status::DE::HAFAS::Product 6.03
Travel::Status::DE::HAFAS::Stop 6.03
Travel::Status::DE::HAFAS::StopFinder 6.03
requirements:
Carp 0
Class::Accessor 0.16
......
......@@ -122,6 +122,8 @@ sub add {
}
elsif ( $journey and $stop ) {
my @route;
my $product = $journey->product_at( $stop->loc->eva )
// $journey->product;
for my $j_stop ( $journey->route ) {
push(
@route,
......@@ -153,9 +155,9 @@ sub add {
checkin_station_id => $stop->loc->eva,
checkin_time => DateTime->now( time_zone => 'Europe/Berlin' ),
dep_platform => $stop->{platform},
train_type => $journey->type // q{},
train_line => $journey->line_no,
train_no => $journey->number // q{},
train_type => $product->type // q{},
train_line => $product->line_no,
train_no => $product->number // q{},
train_id => $journey->id,
sched_departure => $stop->{sched_dep},
real_departure => $stop->{rt_dep} // $stop->{sched_dep},
......