our @ISA=qw(Exporter);
use My::Web;
-require CGI;
Wrequire 'project::Lib';
our $HTML_TEST=0;
-sub footer ($)
-{
-my($class)=@_;
-
- print vskip "2ex";
- project::captive::doc::Macros->navigate("footer");
- My::Web->footer();
-}
-
sub navigate ($;$)
{
my($class,$where)=@_;
{
my($url,$name)=@_;
- return '<span class="productname">'.a_href($url,CGI::escapeHTML($name)).'</span>';
+ return '<span class="productname">'.a_href($url,escapeHTML($name)).'</span>';
}
our($Wine,$ReactOS,$LinuxNTFS,$GnomeVFS,$GnomeVFSmodule,$gnulinux,$freespeech,$freebeer);
+sub _footer
+{
+ print vskip "2ex";
+ project::captive::doc::Macros->navigate("footer");
+}
+
sub init ($%)
{
my($class,%args)=@_;
- $args{"__PACKAGE__"}||=caller();
- %args=(
- "rel_start"=>"..",
- "rel_up"=>".",
- %args);
My::Web->init(
- "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Macros.css") ]}" />
-HERE
+ "css_push"=>"./Macros.css",
"heading_novskip"=>1,
+ "rel_start"=>"..", # possibly overridable
+ "rel_up"=>".", # possibly overridable
+ "footing_delimit_sub_push"=>\&_footer,
+ "__PACKAGE__"=>caller(), # possibly overridable
%args,
);