From: Steinar H. Gunderson <sesse@debian.org>
Date: Tue, 24 Jul 2007 21:08:59 +0000 (+0200)
Subject: Make an “all images” pseudo-event in the menu.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=03e4bd944bab19320b5f13173f2855311f7574c1

Make an “all images” pseudo-event in the menu.
---

diff --git a/perl/Sesse/pr0n/Listing.pm b/perl/Sesse/pr0n/Listing.pm
index 37f67c7..6f47355 100644
--- a/perl/Sesse/pr0n/Listing.pm
+++ b/perl/Sesse/pr0n/Listing.pm
@@ -36,6 +36,11 @@ sub handler {
 		or dberror($r, "Couldn't get events");
 	
 	Sesse::pr0n::Common::header($r, Sesse::pr0n::Templates::fetch_template($r, 'event-listing'));
+	my $allcaption = Sesse::pr0n::Templates::fetch_template($r, 'all-event-title');
+	$r->print("    <ul>\n");
+	$r->print("      <li><a href=\"+all/\">$allcaption</a></li>\n");
+	$r->print("    </ul>\n");
+	
 	$r->print("    <ul>\n");
 
 	while (my $ref = $q->fetchrow_hashref()) {
diff --git a/templates/default/all-event-title b/templates/default/all-event-title
new file mode 100644
index 0000000..48fffa4
--- /dev/null
+++ b/templates/default/all-event-title
@@ -0,0 +1 @@
+All images