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

[www.jankratochvil.net.git] / WebConfig.pm

diff --git a/WebConfig.pm b/WebConfig.pm
index 2fbf856..dbcab4b 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -98,9 +98,9 @@ our %WebConfig=(
                        return $r;
                        },
                ###"footing"=>"<h1>footing</h1>\n",
-               "footing_delimit"=>sub () {
+               "footing_delimit_sub_push"=>sub () {
                        return if $My::Web::W->{"no_job"};
-                       return <<"HERE";
+                       print <<"HERE";
 <table border="0" style="margin: 4ex; padding: 2ex; background: #552222;">
        <tr><td>
                <b>A programmer for hire:</b>