summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-06-19 15:30:18 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-06-19 15:30:18 +0200
commitd5573d1d4ed6d193aee69956cc4403186a015e2f (patch)
treea8a862e55a99e2de8e0eb9158edd6e2a431e0dd1
parentfddd2d516c9d4cbc2f2ed607934b30bcd8c197ed (diff)
rename (sched|current)_info to (regular|current)_notes
-rwxr-xr-xbin/efa4
-rw-r--r--lib/Travel/Routing/DE/EFA.pm4
-rw-r--r--lib/Travel/Routing/DE/EFA/Route/Part.pm14
3 files changed, 11 insertions, 11 deletions
diff --git a/bin/efa b/bin/efa
index d28f32c..c69d8ab 100755
--- a/bin/efa
+++ b/bin/efa
@@ -145,13 +145,13 @@ sub display_connection {
$c->delay, $c->departure_stime, $c->arrival_stime );
}
- for my $extra ( $c->sched_info ) {
+ for my $extra ( $c->regular_notes ) {
if ( not( length $ignore_info and $extra =~ /$ignore_info/i ) ) {
say "# $extra";
}
}
- for my $notice ( $c->current_info ) {
+ for my $notice ( $c->current_notes ) {
if ( $notice->{subtitle} ne $notice->{subject} ) {
printf( "# %s - %s\n", $notice->{subtitle}, $notice->{subject} );
}
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm
index f423cf8..c21a349 100644
--- a/lib/Travel/Routing/DE/EFA.pm
+++ b/lib/Travel/Routing/DE/EFA.pm
@@ -690,9 +690,9 @@ sub parse_xml_part {
);
}
- $hash->{sched_info}
+ $hash->{regular_notes}
= [ map { decode( 'UTF-8', $_->textContent ) } @e_sinfo ];
- $hash->{current_info} = [ map { $self->parse_cur_info($_) } @e_cinfo ];
+ $hash->{current_notes} = [ map { $self->parse_cur_info($_) } @e_cinfo ];
push( @route_parts, $hash );
}
diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm
index 3bf5d60..ab94b12 100644
--- a/lib/Travel/Routing/DE/EFA/Route/Part.pm
+++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm
@@ -86,23 +86,23 @@ sub footpath_parts {
sub extra {
my ($self) = @_;
- return @{ $self->{sched_info} // [] };
+ return @{ $self->{regular_notes} // [] };
}
-sub sched_info {
+sub regular_notes {
my ($self) = @_;
- if ( $self->{sched_info} ) {
- return @{ $self->{sched_info} };
+ if ( $self->{regular_notes} ) {
+ return @{ $self->{regular_notes} };
}
return;
}
-sub current_info {
+sub current_notes {
my ($self) = @_;
- if ( $self->{current_info} ) {
- return @{ $self->{current_info} };
+ if ( $self->{current_notes} ) {
+ return @{ $self->{current_notes} };
}
return;
}