[WWcvs] webwork-modperl: Redo change allowing .

[jj v. a. <we...@ma...>]

Log Message:
-----------
Redo change allowing . in set names.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK:
        DB.pm

Revision Data
-------------
Index: DB.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/DB.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -Llib/WeBWorK/DB.pm -Llib/WeBWorK/DB.pm -u -r1.64 -r1.65
--- lib/WeBWorK/DB.pm
+++ lib/WeBWorK/DB.pm
@@ -2386,7 +2386,7 @@
 		} else {
 			croak "checkKeyfields: invalid characters in $keyfield field: $value (valid characters are [A-Za-z0-9_.])"
 #				unless $value =~ m/^[.\w\-]*$/;
-				unless ( $value =~ m/^[\w-]*$/ ||
+				unless ( $value =~ m/^[.\w-]*$/ ||
 					 ( $value =~ m/^[\w,-]*$/ &&
 					   (defined($versioned) && $versioned) 
 					   &&