I have found 2 issues in
head-procs.tcl:
- links content is deleted after being used, as a trick, in order not to use them later... :
line 479: set links($name) ""
...
line 488: if {$links($name) ne ""} {"later" means the next block where only alternate stylesheets are processed
I think it's more clear to change the second if from this:
if {$links($name) ne ""} {to this:if {$links($name) eq "alternate stylesheet"} { - The array links is removed at the end of the script
line 501: unset links
I have changed that lines in my code, and now I can access to ::template::head::links.
