[interchange-cvs] interchange - racke modified dist/lib/UI/pages/include/Options/Simple

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2003-09-04 16:24:55 GMT
Modified:  dist/lib/UI/pages/include/Options Simple
Log:
don't allow invalid option group names

Revision  Changes    Path
1.6       +8 -1      interchange/dist/lib/UI/pages/include/Options/Simple


rev 1.6, prev_rev 1.5
Index: Simple
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/lib/UI/pages/include/Options/Simple,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Simple	31 Jul 2003 01:16:23 -0000	1.5
+++ Simple	4 Sep 2003 16:24:55 -0000	1.6
@@ -50,10 +50,17 @@
 			if(! $key) {
 				$name = $CGI->{"opt_group_"}
 					or next;
+				if($name =~ /\W/) {
+					$Tag->error({
+						name => 'Set option groups',
+						set => errmsg(qq{Group name "%s" contains non-word characters, will not set}, $name),
+					});
+					next;
+				}
 				if($existing{$name}) {
 					$Tag->error({
 						name => 'Set option groups',
-						set => errmsg("o_group %s already exists, will not set", $name),
+						set => errmsg("Group %s already exists, will not set", $name),
 					});
 					next;
 				}