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 -N -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}]