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

[pr0n] / perl / Sesse / pr0n / Listing.pm

diff --git a/perl/Sesse/pr0n/Listing.pm b/perl/Sesse/pr0n/Listing.pm
index 37f67c75dfab2ebf630fb74973a8ce43d2245290..6f47355f4596631f9d20693dc48c48d5ba8c961a 100644 (file)
--- 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()) {