&My::Web::footer call is deprecated now, use just: exit;

[www.jankratochvil.net.git] / project / captive / Index.pm

diff --git a/project/captive/Index.pm b/project/captive/Index.pm
index b261d60..1e2fcef 100755 (executable)
--- a/project/captive/Index.pm
+++ b/project/captive/Index.pm
@@ -66,17 +66,15 @@ my $W=project::Lib->init(
                "no_project_data"=>1,
                "css_push"=>"./Index.css",
                "project_text_after_title"=>sub { return ""
-                               .'<table border="0" width="100%"><tr><td align="center">'
-                                       .'<table border="0" class="navigate"><tr>'
-                                               .'<td>&bull;&nbsp;'.a_href('#download','Download').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#news','NEWS').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#testimonials','Testimonials').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#press','Internet Press').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#notes','Installation Notes').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#lists','Mailing Lists').'</td>'
-                                               .'<td>&bull;&nbsp;'.a_href('#seealso','See Also').'</td>'
-                                       .'</tr></table>'
-                               .'</td></tr></table>';
+                               .'<table border="0" class="navigate"><tr>'
+                                       .'<td>&bull;&nbsp;'.a_href('#download','Download').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#news','NEWS').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#testimonials','Testimonials').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#press','Internet Press').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#notes','Installation Notes').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#lists','Mailing Lists').'</td>'
+                                       .'<td>&bull;&nbsp;'.a_href('#seealso','See Also').'</td>'
+                               .'</tr></table>'
                                },
                );
 
@@ -84,12 +82,10 @@ my $W=project::Lib->init(
 print <<"HERE" if !$W->{"no_job"};
 @{[ vskip "3ex" ]}
 
-<table border="0" width="100%"><tr><td align="center">
-       <table border="0" style="margin: 3ex; padding: 2ex; background: #bb8888;">
-               <tr><td style="font-size: larger;">
-                       Looking for a challenging job: @{[ a_href $W->{"resume_url"},"My resume" ]}
-               </td></tr>
-       </table>
+<table border="0" style="margin: 3ex; padding: 2ex; background: #bb8888;" class="margin-center">
+       <tr><td style="font-size: larger;">
+               Looking for a challenging job: @{[ a_href $W->{"resume_url"},"My resume" ]}
+       </td></tr>
 </table>
 HERE
 
@@ -103,7 +99,6 @@ print <<"HERE";
 
 <h3>Choose the one preferred installation format:</h3>
 
-<table border="0" style="text-align: center;" width="100%"><tr><td align="center">
 <table border="1" frame="border" rules="rows" style="text-align: center;" class="download">
        <tr>
                <td>
@@ -130,7 +125,6 @@ print <<"HERE";
                <td>@{[ a_href 'CVS.pm#source','download link' ]}</td>
        </tr>
 </table>
-</td></tr></table>
 
 <h4>Development Status</h4>
 
@@ -373,6 +367,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;