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.64 -r1.65
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	9 Feb 2009 21:04:17 -0000	1.64
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	6 Mar 2009 09:03:58 -0000	1.65
@@ -11,7 +11,7 @@
   # generic links
   #
   Class create BaseLink -parameter {
-    cssclass href label title target extra_query_parameter {anchor ""}
+    cssclass href label title target extra_query_parameter {anchor ""} {query ""}
   }
 
   BaseLink instproc mk_css_class {-additional {-default ""}} {
@@ -93,7 +93,8 @@
     if {$item_id} {
       $page lappend references [list $item_id [my type]]
       ::xowiki::Package require $package_id
-      set href [::$package_id pretty_link -lang [my lang] -anchor [my anchor] [my name]]
+      set href [::$package_id pretty_link -lang [my lang] \
+		    -anchor [my anchor] -query [my query] [my name]]
       my render_found $href [my label]
     } else {
       $page incr unresolved_references
@@ -111,7 +112,8 @@
 	  set object_type ::xowiki::Page
 	}
       }
-      set new_link [$page new_link -name [my name] -title [my label] -nls_language [$page nls_language] $package_id]
+      set new_link [$page new_link -name [my name] -title [my label] \
+			-nls_language [$page nls_language] $package_id]
       #set href [export_vars -base [$package_id package_url] \
       #              {{edit-new 1} object_type name title}]