Index: openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql	2 Sep 2001 15:15:57 -0000	1.5
+++ openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql	4 Sep 2001 04:50:05 -0000	1.6
@@ -1013,6 +1013,9 @@
 
 exception
   when NO_DATA_FOUND then 
+    if item_cur%ISOPEN then 
+       close item_cur;
+    end if;
     return null;
 end get_template;
 
@@ -1385,6 +1388,9 @@
 
 exception
   when NO_DATA_FOUND then 
+    if c_revision_cur%ISOPEN then
+       close c_revision_cur;
+    end if;
     return null;
 end get_latest_revision;
 
Index: openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	11 May 2001 00:14:48 -0000	1.2
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	4 Sep 2001 04:50:05 -0000	1.3
@@ -696,6 +696,9 @@
    end if;
 
  exception when no_data_found then
+   if c_attribute%ISOPEN then
+      close c_attribute;
+   end if;
    raise_application_error(-20000, 'No data found for attribute ' || 
      v_object_type || '::' || attribute_name_in || 
      ' in acs_object.get_attribute_storage');
Index: openacs-4/packages/cms/sql/oracle/cms-workflow.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/sql/oracle/cms-workflow.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/sql/oracle/cms-workflow.sql	27 Aug 2001 03:59:17 -0000	1.3
+++ openacs-4/packages/cms/sql/oracle/cms-workflow.sql	4 Sep 2001 04:50:05 -0000	1.4
@@ -526,6 +526,9 @@
     return v_next_place;
     exception
       when NO_DATA_FOUND then
+        if c_places_cur%ISOPEN then
+           close c_places_cur;
+        end if;
         return null;
   end get_next_place;
 
@@ -568,6 +571,9 @@
     return v_previous_place;
     exception
       when NO_DATA_FOUND then
+        if c_places_cur%ISOPEN then
+           close c_places_cur;
+        end if;
         return null;
   end get_previous_place;
 
Index: openacs-4/packages/cms/tcl/perm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/perm-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/perm-procs.tcl	20 Aug 2001 04:35:42 -0000	1.4
+++ openacs-4/packages/cms/tcl/perm-procs.tcl	4 Sep 2001 04:50:05 -0000	1.5
@@ -58,8 +58,6 @@
 
   template::util::get_opts $args 
 
-  ns_log notice [array get opts]
-
   if { [template::util::is_nil opts(user_id)] } {
     set user_id [User::getID]
   } else {
@@ -177,7 +175,7 @@
 
     # Only show checkboxes if the privilege is in pf_show_boxes
     # The join is just a hack for now
-#    set pf_show_boxes [join $pf_show_boxes "|"]
+    # set pf_show_boxes [join $pf_show_boxes "|"]
 
     element create $perm_form_name object_id -label "Object ID" \
       -datatype integer -widget hidden -param
Index: openacs-4/packages/cms/www/modules/permissions/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/permissions/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/permissions/index.tcl	24 May 2001 23:57:17 -0000	1.2
+++ openacs-4/packages/cms/www/modules/permissions/index.tcl	4 Sep 2001 04:50:05 -0000	1.3
@@ -66,6 +66,7 @@
     grantee_name, privilege
   " 
 
+
 # Create a URL passthrough stub to access permissions
 set perms_url_extra "return_url=$return_url&passthrough=$passthrough&object_id=$object_id"