@EXPORT=qw(%WebConfig);
use My::Web;
-require CGI;
my $resume_url="/resume/Resume-JanKratochvil.pm/Resume-JanKratochvil.html";
return My::Web::a_href("http://www.jankratochvil.net/","Jan Kratochvil") if 0
|| $name eq "short"
|| $name eq "lace";
- return CGI::escapeHTML($name);
+ return escapeHTML($name);
},
"viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
"title_prefix"=>"Jan Kratochvil",
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>
HERE
},
"no_job"=>1,
+ "css_inherit"=>1,
);
1;