Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	29 Nov 2001 06:05:37 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	10 Dec 2001 22:48:57 -0000	1.3
@@ -1,12 +1,41 @@
-
 ad_page_contract {
     Create a New Class - input form
 
     @author Ben Adida (ben@openforce.net)
+    @author yon (yon@openforce.net)
     @creation-date 2001-08-20
-} {
+    @version $Id$
+} -query {
+    {referer ""}
 }
 
+form create add_class
+
+element create add_class class_key \
+    -label "Class Key (a short name, no spaces)" -datatype text -widget text -html {size 50}
+
+element create add_class name \
+    -label "Name" -datatype text -widget text -html {size 50}
+
+element create add_class description \
+    -label "Description" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft}
+
+element create add_class referer \
+    -label "Referer" -value $referer -datatype text -widget hidden
+
+if {[form is_valid add_class]} {
+    form get_values add_class class_key name description referer
+
+    set class_key [dotlrn_class::new -class_key $class_key -pretty_name $name -description $description]
+
+    if {[empty_string_p $referer]} {
+        set referer "classes"
+    }
+
+    ad_returnredirect $referer
+    ad_script_abort
+}
+
 set context_bar {{classes Classes} New}
-ad_return_template
 
+ad_return_template