Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	18 Jan 2005 17:06:36 -0000	1.12
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	13 Mar 2005 22:21:37 -0000	1.13
@@ -21,7 +21,7 @@
       <querytext>
       
 	select upper(nvl(attr.table_name,t.table_name)) as attr_table_name, 
-	       nvl(attr.column_name, attr.attribute_name) as attr_column_name, 
+	       upper(nvl(attr.column_name, attr.attribute_name)) as attr_column_name, 
 	       attr.ancestor_type, attr.min_n_values, attr.default_value
 	  from acs_object_type_attributes attr, 
 	       (select t.object_type, t.table_name, level as type_level
Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	15 Feb 2004 11:12:32 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	13 Mar 2005 22:21:37 -0000	1.4
@@ -6,6 +6,30 @@
     @cvs-id $Id$
 }
 
+aa_register_case acs_subsite_expose_bug_775 {
+    Exposes Bug 775.
+
+    @author Don Baccus
+} {
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+        set group_id [group::new -group_name group_775]
+        set rel_id [rel_segments_new $group_id membership_rel segment_775]
+        relation_add membership_rel $group_id 0
+        permission::grant -object_id $group_id -party_id 0 -privilege read
+
+        if { [catch {group::delete $group_id} errmsg] } {
+            aa_error "Delete of group \"group_775\" failed."
+        } else {
+            aa_true "Delete of group \"group_775\" succeeded." 1
+        }
+    }
+
+}
+
 aa_register_case acs_subsite_expose_bug_1144 {
     Exposes Bug 1144.
 
@@ -65,4 +89,4 @@
             aa_true "Main subsite exists" [exists_and_not_null main_subsite_id]
 
         }
-}
\ No newline at end of file
+}