Fisheye: Tag 1.1.20.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/www/cadmin/object-map-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.20.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/www/cadmin/object-map-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/categories/www/cadmin/object-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/object-map.tcl,v
diff -u -r1.11 -r1.11.2.1
--- openacs-4/packages/categories/www/cadmin/object-map.tcl	29 Jun 2018 17:27:18 -0000	1.11
+++ openacs-4/packages/categories/www/cadmin/object-map.tcl	15 Mar 2019 11:18:06 -0000	1.11.2.1
@@ -46,7 +46,15 @@
 
 template::multirow create unmapped_trees tree_id tree_name site_wide_p view_url map_url subtree_url
 
-db_foreach get_unmapped_trees "" {
+db_foreach get_unmapped_trees {
+    select tree_id, site_wide_p,
+          acs_permission.permission_p(tree_id, :user_id, 'category_tree_read') as has_read_permission
+     from category_trees t
+    where not exists (select 1 from category_tree_map m
+                       where m.object_id = :object_id
+                         and m.tree_id = t.tree_id)
+    order by t.tree_id
+} {
     if { $has_read_permission == "t" || $site_wide_p == "t" } {
 	set tree_name [category_tree::get_name $tree_id $locale]
 
Fisheye: Tag 1.1.1.1.22.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/www/cadmin/tree-copy-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.1.1.22.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/www/cadmin/tree-copy-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/categories/www/cadmin/tree-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy.tcl,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/categories/www/cadmin/tree-copy.tcl	29 Jun 2018 17:27:18 -0000	1.15
+++ openacs-4/packages/categories/www/cadmin/tree-copy.tcl	15 Mar 2019 11:21:40 -0000	1.15.2.1
@@ -31,7 +31,12 @@
 
 template::multirow create trees tree_id tree_name site_wide_p view_url copy_url
 
-db_foreach trees_select "" {
+db_foreach trees_select {
+    select tree_id as source_tree_id, site_wide_p,
+           acs_permission.permission_p(tree_id, :user_id, 'category_tree_read') as has_read_p
+    from category_trees
+    where tree_id <> :tree_id
+} {
     if {$site_wide_p == "t" || $has_read_p == "t"} {
 	set source_tree_name [category_tree::get_name $source_tree_id $locale]