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 -N -r1.26.2.3 -r1.26.2.4
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Dec 2005 09:18:02 -0000	1.26.2.3
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	9 Nov 2006 14:23:03 -0000	1.26.2.4
@@ -111,11 +111,7 @@
     # But this would involve too much code changes at the moment, so we stick with this for 
     # the time being :-) MS (openacs@sussdorff.de)
 
-    db_dml update_community_info {update dotlrn_communities_all
-	set active_start_date = :active_start_date,
-	active_end_date = :active_end_date
-	where community_id = :class_instance_id
-    }
+    db_dml update_community_info {}
 
     if {[empty_string_p $referer]} {
         set referer "class?class_key=$class_key"
@@ -138,4 +134,4 @@
                      [list "class?class_key=$class_key" $pretty_name] \
                      [_ dotlrn.new_class_instance]]
 
-set class_name $pretty_name
\ No newline at end of file
+set class_name $pretty_name
Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.xql,v
diff -u -N -r1.2.12.1 -r1.2.12.2
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.xql	13 Dec 2005 09:14:27 -0000	1.2.12.1
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.xql	9 Nov 2006 14:23:03 -0000	1.2.12.2
@@ -11,4 +11,13 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="update_community_info">
+      <querytext>
+        update dotlrn_communities_all
+        set active_start_date = to_date(:active_start_date, 'YYYY-MM-DD HH24:MI:SS'),
+          active_end_date = to_date(:active_end_date, 'YYYY-MM-DD HH24:MI:SS')
+        where community_id = :class_instance_id
+      </querytext>
+    </fullquery>
+
 </queryset>