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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl	13 Sep 2012 16:07:09 -0000	1.3
@@ -0,0 +1,59 @@
+ad_page_contract {
+	popup for choosing a target for wiki link
+} {
+	{package_id:integer}
+	{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}]]]] \
+                          : ""}]
+set next_link [expr { $total_rows > ($page_number * $page_size) ? \
+                          [export_vars -base $url [list package_id [list page_number [expr {$page_number+1}]]]] \
+                          : ""}]
+
+set listing [::xowiki::Includelet listing \
+                 -package_id $package_id -page_number $page_number -page_size $page_size \
+                 -orderby "title asc"]
+
+set admin_p [::xo::cc permission \
+                 -object_id $package_id -privilege admin \
+                 -party_id [::xo::cc set untrusted_user_id]]
+set show_heritage $admin_p
+
+TableWidget t1 -volatile \
+    -set show_heritage $admin_p \
+    -columns {
+      if {[[my info parent] set show_heritage]} {
+        Field inherited -label ""
+      }
+      AnchorField name -label [_ xowiki.Page-name] -html {onclick "onOK(this)"}
+      Field title -label [::xowiki::Page::slot::title set pretty_name]
+    }
+
+foreach entry [$listing children] {
+  $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]
+  t1 add \
+      -title $title \
+      -name $name \
+      -name.href "#"
+
+  if {$show_heritage} {
+    if {$entry_package_id == $package_id} {
+      set label ""
+    } else {
+      set label [$entry_package_id instance_name]
+    }
+    [t1 last_child] set inherited $label
+  }
+}
+
+set t1 [t1 asHTML]