git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
use warnings;
use My::Web;
-require CGI;
Wrequire 'resume::ResumeJanKratochvil';
use Carp qw(confess cluck);
Wrequire 'resume::ResumeJanKratochvil';
use Carp qw(confess cluck);
@@
-35,15
+34,13
@@
sub handler
my $W=My::Web->init(
"title"=>"Contact",
"section"=>"Contact",
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";
);
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));
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";
}
cluck join(" ","Not found keys:",keys(%keys)) if keys(%keys);
print <<"HERE";
-</table>
</td></tr></table>
+</table>
HERE
HERE