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
+Support for: $W->{"css_push"}
[www.jankratochvil.net.git]
/
project
/
Lib.pm
diff --git
a/project/Lib.pm
b/project/Lib.pm
index
67bc50a
..
86c900f
100644
(file)
--- a/
project/Lib.pm
+++ b/
project/Lib.pm
@@
-42,14
+42,14
@@
sub LIST_FILENAME()
sub print_project
{
sub print_project
{
-my($class,$ListItem
,%args
)=@_;
+my($class,$ListItem)=@_;
- print "<h1>".$
W->{"title"}
."</h1>\n";
- do { print $_ if $_; } for ($
args
{"project_text_after_title"});
+ print "<h1>".$
class->title($ListItem)
."</h1>\n";
+ do { print $_ if $_; } for ($
W->
{"project_text_after_title"});
print $ListItem->{"description"};
print "<hr />\n";
print $ListItem->{"description"};
print "<hr />\n";
- print($
args
{"before_project_data"}||"");
- return if $
args
{"no_project_data"};
+ print($
W->
{"before_project_data"}||"");
+ return if $
W->
{"no_project_data"};
my @table=(
{"key"=>"summary","text"=>"Summary"},
{"key"=>"license","text"=>"License","format"=>sub ($) {
my @table=(
{"key"=>"summary","text"=>"Summary"},
{"key"=>"license","text"=>"License","format"=>sub ($) {
@@
-263,14
+263,12
@@
my($class,%args)=@_;
or cluck "Error finding project name of the package: ".$args{"__PACKAGE__"};
my $ListItem=$class->name_to_hashref($args{"project_name"});
my $W=$class->SUPER::init(
or cluck "Error finding project name of the package: ".$args{"__PACKAGE__"};
my $ListItem=$class->name_to_hashref($args{"project_name"});
my $W=$class->SUPER::init(
- "title"=>
$class->title($ListItem
),
+ "title"=>
My::Web->a_href_inhibit(sub { return $class->title($ListItem); }
),
map(("rel_$_"=>'/project/Rel.pm?rel='.$_.'&project='.$args{"project_name"}),qw(prev next)),
"rel_up"=>'/project/',
# "rel_start"=>"/", # TODO:homepage
map(("rel_$_"=>'/project/Rel.pm?rel='.$_.'&project='.$args{"project_name"}),qw(prev next)),
"rel_up"=>'/project/',
# "rel_start"=>"/", # TODO:homepage
+ "css_push"=>"/project/Lib.css",
%args,
%args,
- "head"=>($args{"head"}||"").<<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "/project/Lib.css") ]}" />
-HERE
"heading_novskip"=>1,
);
$class->heading();
"heading_novskip"=>1,
);
$class->heading();