X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FListing.pm;h=6f47355f4596631f9d20693dc48c48d5ba8c961a;hb=fa10473159be03eb924e50cdb4688540c78f89b1;hp=37f67c75dfab2ebf630fb74973a8ce43d2245290;hpb=c8fb633d012a9078990d0abc28cdd527d1362e4a;p=pr0n

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()) {