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.23 -r1.24
--- openacs-4/packages/xowiki/tcl/link-procs.tcl 2 May 2007 10:13:39 -0000 1.23
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl 10 May 2007 00:18:46 -0000 1.24
@@ -11,10 +11,20 @@
#
# generic links
#
+ Class create ExternalLink -parameter {
+ href label title
+ }
+ ExternalLink instproc render {} {
+ my instvar href label title
+ set title_att ""
+ if {[info exists title]} {set title_att "title='$title'"}
+ return "$label"
+ }
Class create Link -parameter {
type name lang stripped_name label page
- folder_id package_id
+ folder_id package_id
+ title
}
Link instproc init {} {
set class [self class]::[my type]
@@ -29,7 +39,9 @@
::Generic::CrItem lookup -name $name -parent_id [my folder_id]
}
Link instproc render_found {href label} {
- return "$label"
+ set title_att ""
+ if {[my exists title]} {set title_att "title='[my set title]'"}
+ return "$label"
}
Link instproc render_not_found {href label} {
return " \[ $label \] "