[BACK]Return to lonsupportreq.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsupportreq.pm between versions 1.41 and 1.43

version 1.41, 2006/12/21 18:32:54 version 1.43, 2007/05/07 14:02:45
Line 27 Line 27
 package Apache::lonsupportreq;  package Apache::lonsupportreq;
   
 use strict;  use strict;
 use lib qw(/home/httpd/lib/perl);  
 use MIME::Types;  use MIME::Types;
 use MIME::Lite;  use MIME::Lite;
 use CGI::Cookie();  use CGI::Cookie();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonacc();  use Apache::lonacc();
Line 48  sub handler { Line 48  sub handler {
     if ($r->header_only) {      if ($r->header_only) {
         return OK;          return OK;
     }      }
       if ($r->uri eq '/adm/helpdesk') {
    &Apache::lonlocal::get_language_handle($r);
       }
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);
     if ($r->uri eq '/adm/helpdesk') {      if ($r->uri eq '/adm/helpdesk') {
         &Apache::lonacc::get_posted_cgi($r);          &Apache::lonacc::get_posted_cgi($r);
Line 135  function validate() { Line 139  function validate() {
 }  }
   
 END  END
     $scripttag .= <<'END';      $scripttag .= &Apache::lonhtmlcommon::javascript_valid_email();
 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  
   
     if ($cid =~ m/_/) {      if ($cid =~ m/_/) {
         ($cdom,$cnum) = split(/_/,$cid);          ($cdom,$cnum) = split(/_/,$cid);
     }      }
Removed from v.1.41  
changed lines
  Added in v.1.43

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>