From 7e9f6bdf90605d43f10bfe82a2611f9436546be7 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Wed, 7 Aug 2024 12:13:15 +0200
Subject: dumpstops: provide backend name and type rather than just opaque IDs

---
 lib/Travelynx/Command/dumpstops.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/Travelynx/Command/dumpstops.pm')

diff --git a/lib/Travelynx/Command/dumpstops.pm b/lib/Travelynx/Command/dumpstops.pm
index c8ecd7a..4d20bbd 100644
--- a/lib/Travelynx/Command/dumpstops.pm
+++ b/lib/Travelynx/Command/dumpstops.pm
@@ -24,12 +24,13 @@ sub run {
 		  or die("open($filename): $!\n");
 
 		my $csv = Text::CSV->new( { eol => "\r\n" } );
-		$csv->combine(qw(name eva lat lon source archived));
+		$csv->combine(qw(name eva lat lon backend is_iris is_hafas));
 		print $fh $csv->string;
 
 		my $iter = $self->app->stations->get_db_iterator;
 		while ( my $row = $iter->hash ) {
-			$csv->combine( @{$row}{qw{name eva lat lon source archived}} );
+			$csv->combine(
+				@{$row}{qw{name eva lat lon backend is_iris is_hafas}} );
 			print $fh $csv->string;
 		}
 		close($fh);
-- 
cgit v1.2.3