From eb929811b227790553265cdd4125cc17b4c7f1a6 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 27 Mar 2019 21:46:52 +0100
Subject: add per-month links to history

---
 lib/Travelynx/Controller/Traveling.pm |  3 ++-
 templates/history.html.ep             | 19 ++++++++++++++++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm
index f409b44..3f5a181 100755
--- a/lib/Travelynx/Controller/Traveling.pm
+++ b/lib/Travelynx/Controller/Traveling.pm
@@ -300,7 +300,8 @@ sub monthly_history {
 			template   => 'history',
 			journeys   => [@journeys],
 			year       => $year,
-			month      => $months[ $month - 1 ],
+			month      => $month,
+			month_name => $months[ $month - 1 ],
 			statistics => $stats
 		}
 	);
diff --git a/templates/history.html.ep b/templates/history.html.ep
index 6b0f894..2808660 100644
--- a/templates/history.html.ep
+++ b/templates/history.html.ep
@@ -1,5 +1,22 @@
+% my $since = get_user_data()->{registered_at};
+% my $now = DateTime->now(time_zone => 'Europe/Berlin');
+<div class="row">
+	<div class="col s12">
+		<ul class="pagination">
+			<!--<li class="disabled"><a href="#!"><i class="material-icons">chevron_left</i></a></li>-->
+			% my $ref = stash('year') ? stash('year') . '/' . stash('month') : '';
+			% while ($since < $now) {
+				% my $link_to = $since->strftime('%Y/%m');
+				% my $class = $link_to eq $ref ? 'active' : 'waves-effect';
+				<li class="<%= $class %>"><a href="/history/<%= $link_to %>"><%= $since->strftime('%m.%Y') %></a></li>
+				% $since->add(months => 1);
+			% }
+			<!--<li class="disabled"><a href="#!"><i class="material-icons">chevron_right</i></a></li>-->
+		</ul>
+	</div>
+</div>
 % if (my $stats = stash('statistics')) {
-<h1><%= stash('month') %> <%= stash('year') %></h1>
+<h1><%= stash('month_name') %> <%= stash('year') %></h1>
 	<div class="row">
 		<div class="col s12">
 			<table class="striped">
-- 
cgit v1.2.3