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.47 -r1.48
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	15 Aug 2008 13:20:17 -0000	1.47
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	25 Sep 2008 13:38:43 -0000	1.48
@@ -11,7 +11,7 @@
   # generic links
   #
   Class create BaseLink -parameter {
-    cssclass href label title target
+    cssclass href label title target extra_query_parameter
   }
 
   BaseLink instproc mk_css_class {-additional {-default ""}} {
@@ -267,6 +267,9 @@
 	append embed_options "$f = '[my set $f]' "
       }
     }
+    if {[my exists extra_query_parameter]} {
+      set internal_href [export_vars -base $internal_href [my extra_query_parameter]]
+    }
     if {![info exists embed_options]} {
       return "<a href='$internal_href' [my mk_css_class -additional file]>$label</a>"
     } else {