--- loncom/interface/lonparmset.pm	2007/03/17 04:35:03	1.363
+++ loncom/interface/lonparmset.pm	2007/03/20 00:08:09	1.364
@@ -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.364 2007/03/20 00:08:09 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') {