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

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

diff --git a/project/captive/Preview.pm b/project/captive/Preview.pm
index ad82a68..b516250 100755 (executable)
--- a/project/captive/Preview.pm
+++ b/project/captive/Preview.pm
@@ -31,9 +31,7 @@ sub handler
 {
 My::Web->init(
                "title"=>'Captive NTFS Technology Preview',
-               "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Preview.css") ]}" />
-HERE
+               "css_push"=>"./Preview.css",
                "heading_novskip"=>1,
                );
 My::Web->heading();
@@ -47,12 +45,10 @@ sub preview_img ($$;$)
 my($file_base,$text,$comment)=@_;
 
        return <<"HERE";
-<table border="0" width="100%"><tr><td align="center">
-       <table border="1">
-               <tr><td>@{[ img $file_base,$text ]}</td></tr>
-               <tr><td><b>$text</b>@{[ map((!$_ ? "" : "<br />$_"),$comment) ]}</td></tr>
-       </table>
-</td></tr></table>
+<table border="1" class="margin-center">
+       <tr><td>@{[ img $file_base,$text ]}</td></tr>
+       <tr><td><b>$text</b>@{[ map((!$_ ? "" : "<br />$_"),$comment) ]}</td></tr>
+</table>
 @{[ vskip "3ex" ]}
 HERE
 }
@@ -73,6 +69,6 @@ print preview_img 'doc/dia/TraceFS','TraceFS Debugging Hook for NT Cache Manager
 print preview_img 'captive-install-acquire','Captive Microsoft Windows Drivers Acquire Utility';
 
 
-My::Web->footer();
+exit;
 }
 1;