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

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

diff --git a/project/captive/Resources.pm b/project/captive/Resources.pm
index 1af3c8d..b3f7392 100755 (executable)
--- a/project/captive/Resources.pm
+++ b/project/captive/Resources.pm
@@ -68,11 +68,11 @@ print "<ul>\n";
        for (my @URLa=@URLs;@URLa;) {
                my $text=shift @URLa;
                my $url=shift @URLa;
-               print "\t<li>".a_href($url,CGI::escapeHTML($text))."</li>\n";
+               print "\t<li>".a_href($url,escapeHTML($text))."</li>\n";
                }
 print "</ul>\n";
 
 
-My::Web->footer();
+exit;
 }
 1;