From: Steinar H. Gunderson Date: Mon, 25 Dec 2006 16:05:46 +0000 (+0100) Subject: Implement access keys. X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;ds=sidebyside;h=b218e9760de4e6b42e79510866d43f0e9c675609;p=pr0n Implement access keys. --- 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.

diff --git a/templates/default/nextaccesskey b/templates/default/nextaccesskey new file mode 100644 index 0000000..8ba3a16 --- /dev/null +++ b/templates/default/nextaccesskey @@ -0,0 +1 @@ +n diff --git a/templates/default/prevaccesskey b/templates/default/prevaccesskey new file mode 100644 index 0000000..1a9cc2b --- /dev/null +++ b/templates/default/prevaccesskey @@ -0,0 +1 @@ +p diff --git a/templates/skoyen.bilder.knatten.com/footer b/templates/skoyen.bilder.knatten.com/footer index 71655f5..8b312a6 100644 --- a/templates/skoyen.bilder.knatten.com/footer +++ b/templates/skoyen.bilder.knatten.com/footer @@ -2,7 +2,7 @@ + FAQ for more information.

diff --git a/templates/skoyen.bildereks.knatten.com/footer b/templates/skoyen.bildereks.knatten.com/footer index 71655f5..8b312a6 100644 --- a/templates/skoyen.bildereks.knatten.com/footer +++ b/templates/skoyen.bildereks.knatten.com/footer @@ -2,7 +2,7 @@ + FAQ for more information.