Implement access keys.

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 1c864fc6d8a88b07ad5b599cfa54b8389ff9671d..e3b33324bcb8de120b80187cc777360d6deb63c5 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -134,8 +134,12 @@ sub get_query_string {
 }
 
 sub print_link {
 }
 
 sub print_link {

-       my ($r, $title, $baseurl, $param, $defparam) = @_;
-       my $str = "<a href=\"$baseurl" . get_query_string($param, $defparam) . "\">$title</a>";
+       my ($r, $title, $baseurl, $param, $defparam, $accesskey) = @_;
+       my $str = "<a href=\"$baseurl" . get_query_string($param, $defparam) . "\"";
+       if (defined($accesskey) && length($accesskey) == 1) {
+               $str .= " accesskey=\"$accesskey\"";
+       }
+       $str .= ">$title</a>";

        $r->print($str);
 }
 
        $r->print($str);
 }
 

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 88affa1df0df74aaf6f6aa45d71868918c0465ac..5aa3138bd8d5695cc2e087563cafc5ce024cb99b 100644 (file)
--- 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'));
                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
        }
 
        # This


@@ -455,7 +456,8 @@ sub print_nextprev {
                my %newsettings = %$settings;
                $newsettings{'start'} = $newstart;
                chomp (my $title = Sesse::pr0n::Templates::fetch_template($r, 'nextpage'));
                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("    </p>\n");
        }
 
        $r->print("    </p>\n");

diff --git a/templates/default/footer b/templates/default/footer
index 71655f50981d2f933c62fe15f924ee2c5a40f24e..8b312a6175795b1a77326ea87822aaa9aeafca42 100644 (file)
--- a/templates/default/footer
+++ b/templates/default/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the

-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>

   </body>
 </html>
 
   </body>
 </html>
 

diff --git a/templates/default/nextaccesskey b/templates/default/nextaccesskey
new file mode 100644 (file)
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 (file)
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 71655f50981d2f933c62fe15f924ee2c5a40f24e..8b312a6175795b1a77326ea87822aaa9aeafca42 100644 (file)
--- a/templates/skoyen.bilder.knatten.com/footer
+++ b/templates/skoyen.bilder.knatten.com/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the

-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>

   </body>
 </html>
 
   </body>
 </html>
 

diff --git a/templates/skoyen.bildereks.knatten.com/footer b/templates/skoyen.bildereks.knatten.com/footer
index 71655f50981d2f933c62fe15f924ee2c5a40f24e..8b312a6175795b1a77326ea87822aaa9aeafca42 100644 (file)
--- a/templates/skoyen.bildereks.knatten.com/footer
+++ b/templates/skoyen.bildereks.knatten.com/footer
@@ -2,7 +2,7 @@
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the
     <p class="footer">pr0n %VERSION%,
       &copy; 2004-2006 <a href="http://www.sesse.net/">Steinar H. Gunderson</a>. All images
       are copyright their respective owners; please see the

-      <a href="/faq.html">FAQ</a> for more information.</p>
+      <a href="/faq.html" accesskey="5">FAQ</a> for more information.</p>

   </body>
 </html>
 
   </body>
 </html>