X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=WebConfig.pm;h=14aa5b6d8052cd2156fb92fdf19ff8606adf3cae;hb=ecf4925a1f1dc1b0495b765bc6729a99c64e955a;hp=d73ecabb7e9b9a72a90efcfc0586ac8774a36f37;hpb=b4ddfba5b53a40e47285f8851e1ff7bb5419909b;p=www.jankratochvil.net.git diff --git a/WebConfig.pm b/WebConfig.pm index d73ecab..14aa5b6 100644 --- a/WebConfig.pm +++ b/WebConfig.pm @@ -58,17 +58,18 @@ our %WebConfig=( "pipermail_url_sub"=>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/pipermail/"; }, "heading"=>sub () { print ''."\n"; - print ''."\n"; - print ''."\n"; - print ''."\n"; +# print ''."\n"; +# print ''."\n"; +# print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print '
'."\n"; - print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print '
'."\n"; - print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil', - "attr"=>'style="text-decoration: inherit; /* revoke underline */;"'); + print 'Jan Kratochvil'; +# print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil', +# "attr"=>'style="text-decoration: inherit; /* revoke underline */;"'); print '
'; @@ -98,7 +99,10 @@ our %WebConfig=( print '
'."\n"; - print My::Web::vskip("1ex") if !$My::Web::W->{"WebConfig::heading_novskip"}; + if (!$My::Web::W->{"WebConfig::heading_novskip"}) { + print "
\n"; + print My::Web::vskip("6ex"); + } }, "footing"=>sub () { # print "

footing

\n"; @@ -119,6 +123,7 @@ our %WebConfig=( HERE }, + "no_job"=>1, ); 1;