my $dbh = Sesse::pr0n::Common::get_dbh();
# Internal? (Ugly?)
- if ($r->get_server_name =~ /internal/ || $r->get_server_name =~ /skoyen\.bilder\.knatten\.com/) {
+ if ($r->get_server_name =~ /internal/ || $r->get_server_name =~ /skoyen\.bilder\.knatten\.com/ || $r->get_server_name =~ /lia\.heimdal\.org/) {
my $user = Sesse::pr0n::Common::check_access($r);
if (!defined($user)) {
return Apache2::Const::OK;
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()) {