Index: openacs-4/packages/forums/www/admin/forum-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-edit.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/forums/www/admin/forum-edit.tcl	10 Sep 2002 22:22:57 -0000	1.7
+++ openacs-4/packages/forums/www/admin/forum-edit.tcl	22 Oct 2002 02:33:31 -0000	1.8
@@ -16,7 +16,8 @@
         -label "Forum ID" -datatype integer -widget hidden
 
 element create forum name \
-        -label "Name" -datatype text -widget text -html {size 60}
+        -label "Name" -datatype text -widget text -html {size 60} -validate { {expr ![empty_string_p [string trim $value]]} {Forum Name can not be blank}
+    }
 
 element create forum charter \
         -label "Charter" -datatype text -widget textarea -html {cols 60 rows 10 wrap soft} -optional
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 \