+icons

[www.jankratochvil.net.git] / project / captive / doc / Macros.pm

diff --git a/project/captive/doc/Macros.pm b/project/captive/doc/Macros.pm
index 4197b60..42cc840 100755 (executable)
--- a/project/captive/doc/Macros.pm
+++ b/project/captive/doc/Macros.pm
@@ -83,15 +83,15 @@ my($class,$where)=@_;
                print '<col width="'.$_.'%" />'."\n" for (qw(10 20 40 20 10));
                print '<td></td>'."\n";
                print '<td align="left">';
-                       print a_href $My::Web::W->{"rel_prev"},img("/My/arrow-left" ,"Previous document")
+                       print img "/My/arrow-left" ,"Previous document","a_href"=>$My::Web::W->{"rel_prev"}
                                        if $My::Web::W->{"rel_prev"};
                print '</td>'."\n";
                print '<td align="center">';
-                       print a_href $My::Web::W->{"rel_up"}  ,img("/My/arrow-up"   ,"Parent")
+                       print img "/My/arrow-up"   ,"Parent","a_href"=>$My::Web::W->{"rel_up"}
                                if $My::Web::W->{"rel_up"} && !($where && $where eq "footer");
                print '</td>'."\n";
                print '<td align="right">';
-                       print a_href $My::Web::W->{"rel_next"},img("/My/arrow-right","Next document")
+                       print img "/My/arrow-right","Next document"),"a_href"=>$My::Web::W->{"rel_next"}
                                if $My::Web::W->{"rel_next"};
                print '</td>'."\n";
                print '<td></td>'."\n";