Index: openacs-4/packages/forums/www/admin/forum-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-new.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/forums/www/admin/forum-new.tcl	20 Sep 2002 21:31:28 -0000	1.8
+++ openacs-4/packages/forums/www/admin/forum-new.tcl	22 Oct 2002 02:33:31 -0000	1.9
@@ -23,7 +23,9 @@
     -label Name \
     -datatype text \
     -widget text \
-    -html {size 60}
+    -html {size 60} \
+    -validate { {expr ![empty_string_p [string trim $value]]} {Forum Name can not be blank}
+    }
 
 element create forum charter \
     -label Charter \