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.41 -r1.42
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	25 Feb 2008 11:16:01 -0000	1.41
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	13 Apr 2008 16:32:56 -0000	1.42
@@ -34,8 +34,18 @@
     if {[my exists target]} {append atts " target='[my target]'"}
   }
   Link instproc init {} {
+    my instvar page name
     set class [self class]::[my type]
     if {[my isclass $class]} {my class $class}
+    if {![my exists stripped_name]} {
+      # set stripped name and lang from provided name
+      my instvar stripped_name lang
+      regexp {^(..):(.*)$} $name _ lang stripped_name
+    }
+    if {![my exists label]}      {my label $name}
+    if {![my exists folder_id]}  {my folder_id [$page parent_id]}
+    if {![my exists package_id]} {my package_id [$page package_id]}
+
     #my log "--L link has class [my info class] // $class"
   }
   Link instproc resolve {} {