Index: openacs-4/packages/xowiki/tcl/link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v diff -u -r1.90.2.8 -r1.90.2.9 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 13 Dec 2014 17:13:43 -0000 1.90.2.8 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 22 Dec 2014 13:26:43 -0000 1.90.2.9 @@ -93,7 +93,7 @@ set page [::xo::db::CrClass get_instance_from_db -item_id [my item_id] -revision_id 0] set content [$page render_content] set id [xowiki::Includelet html_id $page-$target] - return [::xowiki::template::$target render -title [$page title] -id $id -content $content -label $label] + return [::xowiki::template::$target render -title [$page title] -id $id -content $content -label $label -href $href] } else { ns_log notice "xowiki::link: unknown target $target" return "$label" @@ -188,7 +188,13 @@ # Link template # ::xotcl::Class create ::xowiki::LinkTemplate -parameter {template} - ::xowiki::LinkTemplate instproc render {{-title "TITLE"} {-id "ID"} {-content ""} {-label "LABEL"}} { + ::xowiki::LinkTemplate instproc render { + {-title "TITLE"} + {-id "ID"} + {-content ""} + {-label "LABEL"} + {-href ""} + } { return [subst [my template]] }