From 03e4bd944bab19320b5f13173f2855311f7574c1 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Tue, 24 Jul 2007 23:08:59 +0200
Subject: [PATCH] =?utf8?q?Make=20an=20=E2=80=9Call=20images=E2=80=9D=20pse?=
 =?utf8?q?udo-event=20in=20the=20menu.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 perl/Sesse/pr0n/Listing.pm        | 5 +++++
 templates/default/all-event-title | 1 +
 2 files changed, 6 insertions(+)
 create mode 100644 templates/default/all-event-title

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
-- 
2.39.2