Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.155 -r1.156
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Dec 2008 12:17:30 -0000	1.155
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Dec 2008 13:44:44 -0000	1.156
@@ -146,6 +146,9 @@
     # handle different parent_ids
     #
     if {$parent_id ne "" && $parent_id != [my folder_id]} {
+      # The item might be in a folder along the folder path.  so it
+      # will be found by the object resolver. For the time being, we
+      # do nothing more about this.
       if {[::xo::db::sql::content_folder is_folder -item_id $parent_id]} {
         return ""
       } else {
@@ -1263,7 +1266,8 @@
       delete             {{package_id admin}}
       save-tags          login
       popular-tags       login
-      create-new        {{item_id write}}
+      create-new         {{item_id write}}
+      create-or-use      {{item_id write}}
     } -set default_permission {{package_id write}}
 
     Class Object -array set require_permission {
@@ -1274,6 +1278,7 @@
     }
     Class Form -array set require_permission {
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
       list              {{package_id read}}
     }
   }
@@ -1311,6 +1316,7 @@
       save-tags          login
       popular-tags       login
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
     }
 
     Class Object -array set require_permission {
@@ -1321,6 +1327,7 @@
     }
     Class Form -array set require_permission {
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
       list              {{package_id read}}
     }
   }
@@ -1356,6 +1363,7 @@
       save-tags          login
       popular-tags       login
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
     }
 
     Class Object -array set require_permission {
@@ -1366,6 +1374,7 @@
     }
     Class Form -array set require_permission {
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
       list              {{item_id read}}
     }
   }
@@ -1408,6 +1417,7 @@
       save-tags          login
       popular-tags       login
       create-new         {{item_id write}}
+      create-or-use      {{item_id write}}
     }
     
     Class Object -array set require_permission {
@@ -1427,6 +1437,7 @@
       edit              admin
       list              admin
       create-new        {{item_id write}}
+      create-or-use     {{item_id write}}
     }
   }