Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	21 Nov 2001 16:19:13 -0000	1.11
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	28 Nov 2001 00:22:47 -0000	1.12
@@ -95,7 +95,7 @@
 
 <fullquery name="dotlrn_community::get_all_communities.select_all_communities">
 <querytext>
-select community_id, community_type, pretty_name, description, package_id
+select community_id, community_type, pretty_name, description, package_id, community_key
 from dotlrn_communities
 where community_type= :community_type
 </querytext>
Index: openacs-4/packages/dotlrn/www/admin/one-class.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/one-class.adp	7 Nov 2001 20:20:56 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/one-class.adp	28 Nov 2001 00:22:47 -0000	1.2
@@ -3,7 +3,7 @@
 
 <ul>
 <multiple name="class_instances">
-<li> <A href=one-class-instance?class_instance_id=@class_instances.class_instance_id@>@class_instances.pretty_name@</a>
+<li> <A href=../@class_key@/@class_instances.community_key@/one-community-admin>@class_instances.pretty_name@</a>
 </multiple>
 
 <p>
Index: openacs-4/packages/dotlrn/www/admin/one-class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/one-class.tcl	7 Nov 2001 20:20:56 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/one-class.tcl	28 Nov 2001 00:22:47 -0000	1.2
@@ -17,10 +17,10 @@
 # Get all class instances
 set list_of_class_instances [dotlrn_community::get_all_communities $class_key]
 
-template::multirow create class_instances class_instance_id pretty_name description
+template::multirow create class_instances class_instance_id community_key pretty_name description
 
 foreach instance $list_of_class_instances {
-    template::multirow append class_instances [lindex $instance 0] [lindex $instance 2] [lindex $instance 3]
+    template::multirow append class_instances [lindex $instance 0] [lindex $instance 5] [lindex $instance 2] [lindex $instance 3]
 }
 
 ad_return_template