+link rel

[www.jankratochvil.net.git] / project / captive / Preview.html.pl

diff --git a/project/captive/Preview.html.pl b/project/captive/Preview.html.pl
index 4ea9d32..8630c18 100755 (executable)
--- a/project/captive/Preview.html.pl
+++ b/project/captive/Preview.html.pl
@@ -27,6 +27,7 @@ use warnings;
 
 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
+Wrequire 'My::Project';
 
 
 My::Web->init(
@@ -36,8 +37,10 @@ My::Web->init(
 td { padding: 10px; text-align: center; }
 table { border-collapse: collapse; border-style: solid; }
 ",
+               "WebConfig::heading_novskip"=>1,
                );
 My::Web->heading();
+print My::Project->section("captive");
 
 print "<h1>Captive NTFS Technology Preview</h1>\n";