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.24 -r1.25
--- openacs-4/packages/xowiki/tcl/link-procs.tcl 10 May 2007 00:18:46 -0000 1.24
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl 10 May 2007 10:07:26 -0000 1.25
@@ -26,6 +26,9 @@
folder_id package_id
title
}
+ Link instproc title_att {} {
+ if {[my exists title]} {return "title='[my title]'"} {return ""}
+ }
Link instproc init {} {
set class [self class]::[my type]
if {[my isclass $class]} {my class $class}
@@ -39,9 +42,7 @@
::Generic::CrItem lookup -name $name -parent_id [my folder_id]
}
Link instproc render_found {href label} {
- set title_att ""
- if {[my exists title]} {set title_att "title='[my set title]'"}
- return "$label"
+ return "$label"
}
Link instproc render_not_found {href label} {
return " \[ $label \] "