From b218e9760de4e6b42e79510866d43f0e9c675609 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson"
Date: Mon, 25 Dec 2006 17:05:46 +0100
Subject: [PATCH 1/1] Implement access keys.
---
perl/Sesse/pr0n/Common.pm | 8 ++++++--
perl/Sesse/pr0n/Index.pm | 6 ++++--
templates/default/footer | 2 +-
templates/default/nextaccesskey | 1 +
templates/default/prevaccesskey | 1 +
templates/skoyen.bilder.knatten.com/footer | 2 +-
templates/skoyen.bildereks.knatten.com/footer | 2 +-
7 files changed, 15 insertions(+), 7 deletions(-)
create mode 100644 templates/default/nextaccesskey
create mode 100644 templates/default/prevaccesskey
diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 1c864fc..e3b3332 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -134,8 +134,12 @@ sub get_query_string {
}
sub print_link {
- my ($r, $title, $baseurl, $param, $defparam) = @_;
- my $str = "$title";
+ my ($r, $title, $baseurl, $param, $defparam, $accesskey) = @_;
+ my $str = "print($str);
}
diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 88affa1..5aa3138 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -437,7 +437,8 @@ sub print_nextprev {
my %newsettings = %$settings;
$newsettings{'start'} = $newstart;
chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'prevpage'));
- Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)\n", "/$event/", \%newsettings, $defsettings);
+ chomp (my $accesskey = Sesse::pr0n::Templates::fetch_template($r, 'prevaccesskey'));
+ Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)\n", "/$event/", \%newsettings, $defsettings, $accesskey);
}
# This
@@ -455,7 +456,8 @@ sub print_nextprev {
my %newsettings = %$settings;
$newsettings{'start'} = $newstart;
chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'nextpage'));
- Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)", "/$event/", \%newsettings, $defsettings);
+ chomp (my $accesskey = Sesse::pr0n::Templates::fetch_template($r, 'nextaccesskey'));
+ Sesse::pr0n::Common::print_link($r, "$title ($newstart-$newend)", "/$event/", \%newsettings, $defsettings, $accesskey);
}
$r->print("
\n");
diff --git a/templates/default/footer b/templates/default/footer
index 71655f5..8b312a6 100644
--- a/templates/default/footer
+++ b/templates/default/footer
@@ -2,7 +2,7 @@
+ FAQ for more information.