From d5573d1d4ed6d193aee69956cc4403186a015e2f Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 19 Jun 2015 15:30:18 +0200
Subject: rename (sched|current)_info to (regular|current)_notes

---
 bin/efa                                 |  4 ++--
 lib/Travel/Routing/DE/EFA.pm            |  4 ++--
 lib/Travel/Routing/DE/EFA/Route/Part.pm | 14 +++++++-------
 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;
 }
-- 
cgit v1.2.3