}
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);
}
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
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");
<p class="footer">pr0n %VERSION%,
© 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>
<p class="footer">pr0n %VERSION%,
© 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>
<p class="footer">pr0n %VERSION%,
© 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>