--- loncom/interface/lonparmset.pm	2007/03/17 04:35:03	1.363
+++ loncom/interface/lonparmset.pm	2007/06/06 20:19:38	1.366
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.363 2007/03/17 04:35:03 albertel Exp $
+# $Id: lonparmset.pm,v 1.366 2007/06/06 20:19:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2044,6 +2044,22 @@ sub crsenv {
         if ($name =~ /^default_enrollment_(start|end)_date$/) {
             $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
         }
+	#
+        # 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);
+	    }
+        }
         # Get existing cloners
         my @oldcloner = ();
         if ($name eq 'cloners') {
@@ -2425,11 +2441,11 @@ sub storedata {
 								 $tkey.'.type' => $typeof},
 						 $tudom,$tuname) eq 'ok') {
 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
-			    $r->print('<br />'.&mt('Stored modified parameter for').' '.
+			    $r->print('<br />'.&mt('Saved modified parameter for').' '.
 				      &Apache::loncommon::plainname($tuname,$tudom));
 			} else {
 			    $r->print('<div class="LC_error">'.
-				      &mt('Error storing parameters').'</div>');
+				      &mt('Error saving parameters').'</div>');
 			}
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
@@ -2459,10 +2475,10 @@ sub storedata {
 								 $tkey.'.type' => $typeof},
 						 $tudom,$tuname) eq 'ok') {
 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
-			    $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
+			    $r->print('<br />'.&mt('Saved modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
 			} else {
 			    $r->print('<div class="LC_error">'.
-				      &mt('Error storing parameters').'</div>');
+				      &mt('Error saving parameters').'</div>');
 			}
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
@@ -2491,10 +2507,10 @@ sub storedata {
     if ($putentries) {
 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
 			    &log_parmset(\%newdata,0);
-	    $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');
+	    $r->print('<h3>'.&mt('Saved [_1] parameter(s)',$putentries/2).'</h3>');
 	} else {
 	    $r->print('<div class="LC_error">'.
-		      &mt('Error storing parameters').'</div>');
+		      &mt('Error saving parameters').'</div>');
 	}
 	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }
@@ -2775,7 +2791,7 @@ ENDOVER
 	&listdata($r,$resourcedata,$listdata,$sortorder);
     }
     $r->print(&tableend().
-	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
+	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Save').'" /></p>':'').
 	      '</form>'.&Apache::loncommon::end_page());
 }
 
@@ -3132,6 +3148,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',
@@ -3149,6 +3166,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,
@@ -3662,7 +3684,7 @@ ENDYESNO
     }
     $r->print(&Apache::loncommon::end_data_table().
 	      "\n<input type='submit' name='storerules' value='".
-	      &mt('Store Rules')."' /></form>\n".
+	      &mt('Save Rules')."' /></form>\n".
 	      &Apache::loncommon::end_page());
     return;
 }