Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	9 Nov 2001 15:24:57 -0000	1.9
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	26 Nov 2001 19:34:55 -0000	1.10
@@ -79,8 +79,11 @@
 	set short_name "$class_type-$term-$year"
 
 	db_transaction {
+	    # the user_id is needed to set the perms on the portals - aks
+	    set user_id [ad_conn user_id]
+	    
 	    # Create the portal page
-	    set page_id [portal::create [ad_conn user_id]]
+	    set page_id [portal::create $user_id]
 
 	    # Insert the class instance
 	    set community_id [db_exec_plsql create_class_instance {}]