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.7 -r1.90.2.8 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 12 Dec 2014 12:50:26 -0000 1.90.2.7 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 13 Dec 2014 17:13:43 -0000 1.90.2.8 @@ -86,52 +86,6 @@ return [my item_id] } - ::xotcl::Class create ::xowiki::LinkTemplate -parameter {template} - ::xowiki::LinkTemplate instproc render {{-title "TITLE"} {-id "ID"} {-content ""} {-label "LABEL"}} { - return [subst [my template]] - } - - ::xowiki::LinkTemplate create ::xowiki::template::modal-sm -template { -$label - - } - - ::xowiki::LinkTemplate create ::xowiki::template::modal-lg -template { -$label - - } - - Link instproc render_target {href label} { ns_log notice render_target set target [my target] @@ -152,7 +106,6 @@ } elseif {[my exists target] && ![my built_in_target]} { return [my render_target $href $label] } else { - ns_log notice render_default return "$label" } } @@ -232,6 +185,55 @@ } # + # Link template + # + ::xotcl::Class create ::xowiki::LinkTemplate -parameter {template} + ::xowiki::LinkTemplate instproc render {{-title "TITLE"} {-id "ID"} {-content ""} {-label "LABEL"}} { + return [subst [my template]] + } + + ::xowiki::LinkTemplate create ::xowiki::template::modal-sm -template { +$label + + } + + ::xowiki::LinkTemplate create ::xowiki::template::modal-lg -template { +$label + + } + + + # # folder links # Class create ::xowiki::Link::folder -superclass ::xowiki::Link