Index: openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl	9 Apr 2018 07:47:05 -0000	1.6
+++ openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl	3 Sep 2024 15:38:00 -0000	1.7
@@ -1,20 +1,20 @@
 ad_page_contract {
-	popup for choosing a target for wiki link
+  popup for choosing a target for wiki link
 } {
-	{package_id:naturalnum,notnull}
-	{page_number:integer 1}
-	{page_size:integer 20}
+  {package_id:naturalnum,notnull}
+  {page_number:integer 1}
+  {page_size:integer 20}
 }
 
 ::xowiki::Package initialize -package_id $package_id
 set total_rows [::xowiki::Includelet listing -package_id $package_id -count true]
 
 set url [ad_conn url]
 set back_link [expr { ($page_number > 1) ? \
-                          [export_vars -base $url [list package_id [list page_number [expr {$page_number-1}]]]] \
+                          [export_vars -base $url {package_id {page_number [expr {$page_number-1}]}}] \
                           : ""}]
 set next_link [expr { $total_rows > ($page_number * $page_size) ? \
-                          [export_vars -base $url [list package_id [list page_number [expr {$page_number+1}]]]] \
+                          [export_vars -base $url {package_id {page_number [expr {$page_number+1}]}}] \
                           : ""}]
 
 set listing [::xowiki::Includelet listing \
@@ -40,10 +40,10 @@
 template::add_event_listener -id "body" -event "load" -script {Init();}
 
 foreach entry [$listing children] {
-  $entry instvar name parent_id title formatted_date page_id 
+  $entry instvar name parent_id title formatted_date page_id
   set entry_package_id [$entry set package_id]
-      
-  set page_link [$package_id pretty_link -parent_id $parent_id $name]
+
+  set page_link [::$package_id pretty_link -parent_id $parent_id $name]
   t1 add \
       -title $title \
       -name $name \
@@ -53,7 +53,7 @@
     if {$entry_package_id == $package_id} {
       set label ""
     } else {
-      set label [$entry_package_id instance_name]
+      set label [::$entry_package_id instance_name]
     }
     [t1 last_child] set inherited $label
   }