Generalized: &a_href_cz -> &a_href_cc

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

diff --git a/Contact.pm b/Contact.pm
index 0a5c947..296ae8c 100644 (file)
--- a/Contact.pm
+++ b/Contact.pm
@@ -25,7 +25,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require CGI;
 Wrequire 'resume::ResumeJanKratochvil';
 use Carp qw(confess cluck);
 
@@ -35,15 +34,13 @@ sub handler
 my $W=My::Web->init(
                "title"=>"Contact",
                "section"=>"Contact",
-               "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "/Contact.css") ]}" />
-HERE
+               "css_push"=>"./Contact.css",
                );
 My::Web->heading();
 
 
 print <<"HERE";
-<table width="100%" style="border-style: none;"><tr><td align="center"><table class="contact">
+<table border="0" class="contact">
 HERE
 my @contact=resume::ResumeJanKratochvil->Contact();
 my %keys=map(($_=>1),qw(Name eMail Projects OpenPGP));
@@ -61,7 +58,7 @@ HERE
        }
 cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys);
 print <<"HERE";
-</table></td></tr></table>
+</table>
 
 HERE