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 -N -r1.96.2.8 -r1.96.2.9 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 11 Nov 2016 00:31:10 -0000 1.96.2.8 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 15 Dec 2016 19:27:40 -0000 1.96.2.9 @@ -232,7 +232,10 @@ {-label "LABEL"} {-href ""} } { - set result "" + set result "" + # this can be used into templates as id to safely attach event + # handlers to elements + set :timed_id [clock microseconds] if {$with_link} {append result [subst [my link_template]]} if {$with_body} {append result [subst [my body_template]]} return $result