version 1.10, 2004/11/04 00:57:25
|
version 1.13, 2004/12/18 22:30:28
|
Line 17 sub handler {
|
Line 17 sub handler {
|
if ($r->header_only) { |
if ($r->header_only) { |
return OK; |
return OK; |
} |
} |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action','origurl','function']); |
if ($r->uri eq '/adm/helpdesk') { |
my $action = $ENV{'form.action'}; |
&Apache::loncommon::get_posted_cgi($r); |
|
} |
my $function = $ENV{'form.function'}; |
my $function = $ENV{'form.function'}; |
my $origurl = &Apache::lonnet::unescape($ENV{'form.origurl'}); |
my $origurl = &Apache::lonnet::unescape($ENV{'form.origurl'}); |
|
my $action = $ENV{'form.action'}; |
|
|
if ($action eq 'process') { |
if ($action eq 'process') { |
&print_request_receipt($r,$origurl,$function); |
&print_request_receipt($r,$origurl,$function); |
} else { |
} else { |
Line 50 sub print_request_form {
|
Line 53 sub print_request_form {
|
$usec = $ENV{'request.course.sec'}; |
$usec = $ENV{'request.course.sec'}; |
$cid = $ENV{'request.course.id'}; |
$cid = $ENV{'request.course.id'}; |
$server = $ENV{'SERVER_NAME'}; |
$server = $ENV{'SERVER_NAME'}; |
my $scripttag = (<<END); |
my $scripttag = (<<'END'); |
function validate() { |
function validate() { |
if (document.logproblem.email.value.indexOf("\@") == -1) { |
if (validmail(document.logproblem.email) == false) { |
alert("You must enter a valid e-mail address"); |
alert("The e-mail address you entered: "+document.logproblem.email.value+" is not a valid e-mail address."); |
return |
return; |
} |
} |
document.logproblem.submit(); |
document.logproblem.submit(); |
} |
} |
|
|
|
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 |
END |
if ($cid =~ m/_/) { |
if ($cid =~ m/_/) { |
($cdom,$cnum) = split/_/,$cid; |
($cdom,$cnum) = split/_/,$cid; |
Line 765 END
|
Line 789 END
|
|
|
sub retrieve_instcodes { |
sub retrieve_instcodes { |
my ($coursecodes,$codedom,$totcodes) = @_; |
my ($coursecodes,$codedom,$totcodes) = @_; |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1); |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.'); |
foreach my $course (keys %courses) { |
foreach my $course (keys %courses) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)$/) { |
if ($courses{$course} =~ m/^[^:]*:([^:]+)/) { |
$$coursecodes{$course} = &Apache::lonnet::unescape($1); |
$$coursecodes{$course} = &Apache::lonnet::unescape($1); |
$totcodes ++; |
$totcodes ++; |
} |
} |