Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	15 Dec 2006 22:45:22 -0000	1.28
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	15 May 2007 20:14:25 -0000	1.29
@@ -47,7 +47,7 @@
 
     {description:text(textarea),optional
 	{label "#dotlrn.Description#"}
-	{html {rows 5 cols 60 wrap soft}}
+	{html {rows 5 cols 60}}
 	{help_text "[_ dotlrn.lt_do_not_use_p_tags]"}
     }	
     
@@ -114,11 +114,12 @@
     db_dml update_community_info {}
 
     if {[empty_string_p $referer]} {
-        set referer "class?class_key=$class_key"
+        set referer "admin/class?[export_url_vars class_key]"
     }
 
     if {${add_instructor}} {
-        ad_returnredirect "add-instructor?community_id=$class_instance_id&referer=$referer"
+	set community_id $class_instance_id 
+        ad_returnredirect "add-instructor?[export_url_vars community_id referer]"
         ad_script_abort
     }