--- loncom/interface/lonsupportreq.pm	2006/12/22 20:51:27	1.42
+++ loncom/interface/lonsupportreq.pm	2007/05/07 14:02:45	1.43
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.42 2006/12/22 20:51:27 albertel Exp $
+# $Id: lonsupportreq.pm,v 1.43 2007/05/07 14:02:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@ use MIME::Lite;
 use CGI::Cookie();
 use Apache::Constants qw(:common);
 use Apache::loncommon();
+use Apache::lonhtmlcommon;
 use Apache::lonnet;
 use Apache::lonlocal;
 use Apache::lonacc();
@@ -138,29 +139,7 @@ function validate() {
 }
 
 END
-    $scripttag .= <<'END';
-function validmail(field) {
-    var str = field.value;
-    if (window.RegExp) {
-        var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)";
-        var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$"; //"
-        var reg1 = new RegExp(reg1str);
-        var reg2 = new RegExp(reg2str);
-        if (!reg1.test(str) && reg2.test(str)) {
-            return true;
-        }
-        return false;
-    }
-    else
-    {
-        if(str.indexOf("@") >= 0) {
-            return true;
-        }
-        return false;
-    }
-}
-END
-
+    $scripttag .= &Apache::lonhtmlcommon::javascript_valid_email();
     if ($cid =~ m/_/) {
         ($cdom,$cnum) = split(/_/,$cid);
     }