Make an “all images” pseudo-event in the menu.
authorSteinar H. Gunderson <sesse@debian.org>
Tue, 24 Jul 2007 21:08:59 +0000 (23:08 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Tue, 24 Jul 2007 21:08:59 +0000 (23:08 +0200)
perl/Sesse/pr0n/Listing.pm
templates/default/all-event-title [new file with mode: 0644]

index 37f67c75dfab2ebf630fb74973a8ce43d2245290..6f47355f4596631f9d20693dc48c48d5ba8c961a 100644 (file)
@@ -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 (file)
index 0000000..48fffa4
--- /dev/null
@@ -0,0 +1 @@
+All images