--- loncom/interface/lonparmset.pm	2007/05/02 01:33:49	1.365
+++ loncom/interface/lonparmset.pm	2007/06/20 21:08:15	1.366.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.365 2007/05/02 01:33:49 albertel Exp $
+# $Id: lonparmset.pm,v 1.366.2.1 2007/06/20 21:08:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2047,17 +2047,24 @@ sub crsenv {
 	#
         # Deal with the emails
         if ($name =~ /\.email$/) {
-	    my ($user,$domain) = split(/:/,$value);
-	    if (!defined($user) || !defined($domain)) {
-		$setoutput.= '<br /> <span class="LC_error">'.
-		    &mt("Invalid email address specified, address must be of the form username:domain").
-		    '</span>';
-		undef($value);
-	    } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
-		$setoutput.= '<br /> <span class="LC_error">'.
-		    &mt("Invalid email address specified, user [_1] is unknown.",$value).
-		    '</span>';
-		undef($value);
+	    foreach my $specifier (split(',',$value)) {
+		my ($user,$sections_or_groups)=
+		    ($specifier=~/^([^\(]+)\(([^\)]+)\)/);
+		if (!$sections_or_groups) {
+		    $user = $specifier;
+		}
+		my ($name,$domain) = split(':',$user);
+		if (!defined($user) || !defined($domain)) {
+		    $setoutput.= '<br /> <span class="LC_error">'.
+			&mt("Invalid email address specified, address must be of the form username:domain what was specified was ([_1])",$user).
+			'</span>';
+		    undef($value);
+		} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
+		    $setoutput.= '<br /> <span class="LC_error">'.
+			&mt("Invalid email address specified, user [_1] is unknown.",$name).
+			'</span>';
+		    undef($value);
+		}
 	    }
         }
         # Get existing cloners
@@ -3148,6 +3155,7 @@ ENDMAINFORMHEAD
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
+    my $mgr  = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
 
     my @menu =
         ( { divider=>'Settings for Your Course',
@@ -3165,6 +3173,11 @@ ENDMAINFORMHEAD
 	    url => '/adm/slotrequest?command=showslots',
 	    permission => $vgr,
             },
+	  { text => 'Reset Student Access Times',
+	    url => '/adm/helper/resettimes.helper',
+	    permission => $mgr,
+            },
+
           { text => 'Set Parameter Setting Default Actions',
             action => 'setdefaults',
             permission => $parm_permission,