Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	8 Dec 2001 01:22:40 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	10 Dec 2001 22:48:57 -0000	1.2
@@ -3,12 +3,40 @@
 
     @author yon (yon@openforce.net)
     @creation-date 2001-12-03
-    @cvs-id $Id$
-} {
+    @version $Id$
+} -query {
+    {referer ""}
 } -properties {
     context_bar:onevalue
 }
 
+form create add_club
+
+element create add_club club_key \
+    -label "Club Key (a short name, no spaces)" -datatype text -widget text -html {size 50}
+
+element create add_club name \
+    -label "Name" -datatype text -widget text -html {size 50}
+
+element create add_club description \
+    -label "Charter" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft}
+
+element create add_club referer \
+    -label "Referer" -value $referer -datatype text -widget hidden
+
+if {[form is_valid add_club]} {
+    form get_values add_club club_key name description referer
+
+    set key [dotlrn_club::new -description $description -key $club_key -pretty_name $name]
+
+    if {[empty_string_p $referer]} {
+        set referer "clubs"
+    }
+
+    ad_returnredirect $referer
+    ad_script_abort
+}
+
 set context_bar {{clubs Clubs} New}
 
 ad_return_template