- Department Project Permissions:

  Updated permission model to enable department's access
  to department's projects

tcl/intranet-rest-procs.tcl

@@ -980,9 +980,11 @@ ad_proc -private im_rest_get_object_type {
     set unlimited_sql $sql
     append sql [im_rest_object_type_pagination_sql -query_hash_pairs $query_hash_pairs]
 
+#    ad_return_complaint 1 "<pre>$sql</pre>"
+
+
     # -------------------------------------------------------
     # Loop through all objects of the specified type
-
     set obj_ctr 0
     set result ""
     db_foreach objects $sql {
@@ -1001,6 +1003,7 @@ ad_proc -private im_rest_get_object_type {
 
 	# Check permissions
 	set read_p $rest_otype_read_all_p
+
 	if {!$read_p} {
 	    # This is one of the "custom" object types - check the permission:
 	    # This may be quite slow checking 100.000 objects one-by-one...