[WWcvs] webwork-modperl: Allow periods in set names.

[<we...@ma...>]

Log Message:
-----------
Allow periods in set names.  This has been tested for a while without
ill effects.  Such sets already exist - they can be created
in the Library Browser, but when they were exported, they could not be
re-imported.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        ProblemSetList.pm

Revision Data
-------------
Index: ProblemSetList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm -u -r1.79 -r1.80
--- lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm
@@ -82,7 +82,7 @@
 use CGI qw();
 use WeBWorK::Utils qw(readFile listFilesRecursive cryptPassword sortByName);
 
-use constant HIDE_SETS_THRESHOLD => 50;
+use constant HIDE_SETS_THRESHOLD => 500;
 use constant DEFAULT_PUBLISHED_STATE => 1;
 use constant ONE_WEEK => 60*60*24*7;  
 
@@ -1395,7 +1395,7 @@
 
 	my $setName = '';
 
-	if ($fileName =~ m|^set([\w-]+)\.def$|) {
+	if ($fileName =~ m|^set([.\w-]+)\.def$|) {
 		$setName = $1;
 	} else {
 		warn qq{The setDefinition file name must begin with   <CODE>set</CODE>},