Highslide: Arrows have ALT texts

diff --git a/lib/UCW/Gallery/Web/HighSlide.pm b/lib/UCW/Gallery/Web/HighSlide.pm
index c9d2aa8a9a5c162f861c6921a40f4ee33a1bfd62..09cd910d28cab5064a7c37822df25c7da9304f99 100644 (file)
--- a/lib/UCW/Gallery/Web/HighSlide.pm
+++ b/lib/UCW/Gallery/Web/HighSlide.pm
@@ -34,9 +34,9 @@ sub show_links($$$$) {
        my ($self, $prev, $up, $next) = @_;
        my $nav = $self->get('ThemeUrlPrefix') . "highslide/nav";
        print "<p class=parent>";
-       print "<a href='$prev'><img class=back src='$nav/prev.png'></a>" if $prev ne "";
-       printf "<a href='$next'><img class=fwd src='$nav/next.png'></a>" if $next ne "";
-       printf "<a href='$up'><img class=up src='$nav/back.png'></a>" if $up ne "";
+       print "<a href='$prev'><img class=back src='$nav/prev.png' alt='←'></a>" if $prev ne "";
+       printf "<a href='$next'><img class=fwd src='$nav/next.png' alt='→'></a>" if $next ne "";
+       printf "<a href='$up'><img class=up src='$nav/back.png' alt='↑'></a>" if $up ne "";
 }
 
 sub show_pre_thumbs($) {