update

[www.jankratochvil.net.git] / project / Heat / index.html.pl

diff --git a/project/Heat/index.html.pl b/project/Heat/index.html.pl
index 5788afd..4fd1ad1 100755 (executable)
--- a/project/Heat/index.html.pl
+++ b/project/Heat/index.html.pl
@@ -33,4 +33,10 @@ My::Web->init_project(
                "ListItem"=>\%My::Project::Heat::ListItem,
                );
 
+print <<'HERE';
+<iframe src="Heat/" width="90%" height="500" />
+<a href="Heat/">Program on-line</a>.
+</iframe>
+HERE
+
 My::Web->footer();