version 1.14, 2004/12/18 23:58:34
|
version 1.19, 2004/12/30 16:18:16
|
Line 110 END
|
Line 110 END
|
my ($sec,$grp) = split/:/,$_; |
my ($sec,$grp) = split/:/,$_; |
$groupid{$sec} = $grp; |
$groupid{$sec} = $grp; |
} |
} |
my $defdom = $Apache::lonnet::perlvar{'lonDefDomain'}; |
my $codedom = $Apache::lonnet::perlvar{'lonDefDomain'}; |
my $codedom = $defdom; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom']); |
|
if (exists($ENV{'form.codedom'})) { |
|
$codedom = $ENV{'form.codedom'}; |
|
} |
my %coursecodes = (); |
my %coursecodes = (); |
my %codes = (); |
my %codes = (); |
my @codetitles = (); |
my @codetitles = (); |
Line 124 END
|
Line 127 END
|
my $totcodes = 0; |
my $totcodes = 0; |
my $format_reply; |
my $format_reply; |
my $jscript = ''; |
my $jscript = ''; |
|
|
if ($cdom) { |
if ($cdom) { |
$codedom = $cdom; |
$codedom = $cdom; |
} |
} |
Line 152 END
|
Line 155 END
|
<html> |
<html> |
<head> |
<head> |
<title>LON-CAPA support request</title> |
<title>LON-CAPA support request</title> |
<script> |
<script type"text/javascript"> |
$scripttag |
$scripttag |
$jscript |
$jscript |
</script> |
</script> |
</head> |
</head> |
$bodytag |
$bodytag |
ENDHEAD |
ENDHEAD |
if ($r->uri() eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
&print_header($r,$origurl); |
&print_header($r,$origurl); |
} |
} |
$r->print(<<"END"); |
$r->print(<<"END"); |
|
<form method="post" name="logproblem" enctype="multipart/form-data"> |
<table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
<table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
<tr> |
<tr> |
<td> |
<td> |
Line 173 ENDHEAD
|
Line 177 ENDHEAD
|
<tr> |
<tr> |
<td> |
<td> |
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
<form method="post" name="logproblem" enctype="multipart/form-data"> |
|
<tr> |
<tr> |
<td width="140" bgcolor="$tablecolor"> |
<td width="140" bgcolor="$tablecolor"> |
<table width="140" border="0" cellpadding="8" cellspacing="0"> |
<table width="140" border="0" cellpadding="8" cellspacing="0"> |
Line 198 END
|
Line 201 END
|
} elsif (defined($lastname) && $lastname ne '') { |
} elsif (defined($lastname) && $lastname ne '') { |
$fullname= " $lastname"; |
$fullname= " $lastname"; |
} |
} |
$r->print('<input type="text" size="20" name="username" value="'.$fullname.'" /><br />'); |
$r->print('<input type="text" size="20" name="username" value="'.$fullname.'" />'); |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
|
<input type="button" value="Submit Request" onClick="validate()" /> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 263 END
|
Line 267 END
|
} |
} |
if ($udomform eq '') { |
if ($udomform eq '') { |
$udomform = '<i>domain</i>: '; |
$udomform = '<i>domain</i>: '; |
$udomform .= &Apache::loncommon::select_dom_form('','udom'); |
$udomform .= &Apache::loncommon::select_dom_form($codedom,'udom'); |
} |
} |
if ($unameform eq '') { |
if ($unameform eq '') { |
$unameform= '<i>username</i>: <input type="text" size="20" name="loncname" value="'.$uname.'" /> '; |
$unameform= '<i>username</i>: <input type="text" size="12" name="uname" value="'.$uname.'" /> '; |
} |
} |
$r->print($unameform.$udomform.'<br />Enter the username you use to log-in to your LON-CAPA system, and choose your domain.'); |
$r->print($unameform.$udomform.'<br />Enter the username you use to log-in to your LON-CAPA system, and choose your domain.'); |
} |
} |
Line 545 END
|
Line 549 END
|
<tr> |
<tr> |
<td> |
<td> |
<input type="hidden" name="action" value="process" /> |
<input type="hidden" name="action" value="process" /> |
<input type="button" value="Submit Request Form" onClick="validate()"/> |
<input type="button" value="Submit Request" onClick="validate()"/> |
</td> |
</td> |
<td> </td> |
<td> </td> |
<td> |
<td> |
Line 587 sub print_request_receipt {
|
Line 591 sub print_request_receipt {
|
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot'); |
my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot'); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},\@formvars); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},\@formvars); |
|
my $coursecode = $ENV{'form.coursecode'}; |
|
if ($coursecode eq '') { |
|
if (defined($ENV{'form.Year'})) { |
|
$coursecode .= $ENV{'form.Year'}; |
|
} |
|
if (defined($ENV{'form.Semester'})) { |
|
$coursecode .= $ENV{'form.Semester'}; |
|
} |
|
if (defined($ENV{'form.Department'})) { |
|
$coursecode .= $ENV{'form.Department'}; |
|
} |
|
if (defined($ENV{'form.Number'})) { |
|
$coursecode .= $ENV{'form.Number'}; |
|
} |
|
} |
my $supportmsg = qq| |
my $supportmsg = qq| |
Name: $ENV{'form.username'} |
Name: $ENV{'form.username'} |
Email: $ENV{'form.email'} |
Email: $ENV{'form.email'} |
Username/domain: $ENV{'form.uname'} - $ENV{'form.udom'} |
Username/domain: $ENV{'form.uname'} - $ENV{'form.udom'} |
Tel: $ENV{'form.phone'} |
Tel: $ENV{'form.phone'} |
Course Information: $ENV{'form.title'} - $ENV{'form.coursecode'} - section: $ENV{'form.section'} |
Course Information: $ENV{'form.title'} - $coursecode - section: $ENV{'form.section'} |
Subject: $ENV{'form.subject'} |
Subject: $ENV{'form.subject'} |
Description: $ENV{'form.description'} |
Description: $ENV{'form.description'} |
URL: $ENV{'form.sourceurl'} |
URL: $ENV{'form.sourceurl'} |
Line 607 Date/Time: $reporttime
|
Line 625 Date/Time: $reporttime
|
<font color="$fontcolor">Email: </font><font color="$vlinkcolor">$ENV{'form.email'}</font><br /> |
<font color="$fontcolor">Email: </font><font color="$vlinkcolor">$ENV{'form.email'}</font><br /> |
<font color="$fontcolor">Username/domain: </font><font color="$vlinkcolor">$ENV{'form.uname'} - $ENV{'form.udom'}</font><br /> |
<font color="$fontcolor">Username/domain: </font><font color="$vlinkcolor">$ENV{'form.uname'} - $ENV{'form.udom'}</font><br /> |
<font color="$fontcolor">Tel: </font><font color="$vlinkcolor">$ENV{'form.phone'}</font><br /> |
<font color="$fontcolor">Tel: </font><font color="$vlinkcolor">$ENV{'form.phone'}</font><br /> |
<font color="$fontcolor">Course Information: </font><font color="$vlinkcolor">$ENV{'form.title'} - $ENV{'form.coursecode'} - section: $ENV{'form.section'}</font><br /> |
<font color="$fontcolor">Course Information: </font><font color="$vlinkcolor">$ENV{'form.title'} - $coursecode - section: $ENV{'form.section'}</font><br /> |
<font color="$fontcolor">Subject: </font><font color="$vlinkcolor">$ENV{'form.subject'}</font><br /> |
<font color="$fontcolor">Subject: </font><font color="$vlinkcolor">$ENV{'form.subject'}</font><br /> |
<font color="$fontcolor">Description: </font><font color="$vlinkcolor">$descrip</font><br /> |
<font color="$fontcolor">Description: </font><font color="$vlinkcolor">$descrip</font><br /> |
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.sourceurl'}</font><br /> |
<font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.sourceurl'}</font><br /> |
Line 619 Date/Time: $reporttime
|
Line 637 Date/Time: $reporttime
|
<title>LON-CAPA support request recorded</title> |
<title>LON-CAPA support request recorded</title> |
</head> |
</head> |
$bodytag |
$bodytag |
|
<form name="logproblem"> |
|
<input type="hidden" name="action" value="result" /> |
|
</form> |
END |
END |
if ($r->uri eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
&print_header($r,$url,'process'); |
&print_header($r,$url,'process'); |
Line 918 sub build_code_selections {
|
Line 939 sub build_code_selections {
|
my @sorted_b = (); |
my @sorted_b = (); |
my @sorted_b_titles = (); |
my @sorted_b_titles = (); |
&sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b); |
&sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b); |
if (defined($$cat_titles{$$codetitles[1]})) { |
if (defined($$cat_titles{$$codetitles[2]})) { |
foreach (@sorted_b) { |
foreach (@sorted_b) { |
push @sorted_b_titles, $$cat_titles{$$codetitles[1]}{$_}; |
push @sorted_b_titles, $$cat_titles{$$codetitles[2]}{$_}; |
} |
} |
} |
} |
$$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b); |
$$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b); |
Line 1071 sub javascript_code_selections {
|
Line 1092 sub javascript_code_selections {
|
function courseSet(caller) { |
function courseSet(caller) { |
var ids = new Array ("$seltitle_str"); |
var ids = new Array ("$seltitle_str"); |
var formitems = new Array ($numtitles); |
var formitems = new Array ($numtitles); |
var idyr = document.forms.logproblem.Year.selectedIndex |
var idyr = document.logproblem.Year.selectedIndex |
var idsem = document.forms.logproblem.Semester.selectedIndex |
var idsem = document.logproblem.Semester.selectedIndex |
var iddept = document.forms.logproblem.Department.selectedIndex |
var iddept = document.logproblem.Department.selectedIndex |
var idclass = document.forms.logproblem.Number.selectedIndex |
var idclass = document.logproblem.Number.selectedIndex |
var idyears = new Array("$$idlist{$$codetitles[0]}"); |
var idyears = new Array("$$idlist{$$codetitles[0]}"); |
var idsems = new Array ($$idnums{$$codetitles[0]}); |
var idsems = new Array ($$idnums{$$codetitles[0]}); |
var idsemlongs = new Array ($$idnums{$$codetitles[0]}); |
var idsemlongs = new Array ($$idnums{$$codetitles[0]}); |
Line 1100 END
|
Line 1121 END
|
} |
} |
} |
} |
$$script_tag .= (<<END_OF_BLOCK); |
$$script_tag .= (<<END_OF_BLOCK); |
if (caller == "Year") { |
if (caller == "$$codetitles[0]") { |
document.forms.logproblem.Department.length = 0 |
document.logproblem.Department.length = 0 |
document.forms.logproblem.Number.length = 0 |
document.logproblem.Number.length = 0 |
document.forms.logproblem.Department.options[0] = new Option("<-Pick Semester.","-1",true,true) |
document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
document.forms.logproblem.Number.options[0] = new Option("<-Pick Department","-1",true,true) |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
if (idyr == 0) { |
if (idyr == 0) { |
document.forms.logproblem.Semester.length = 0 |
document.logproblem.Semester.length = 0 |
document.forms.logproblem.Semester.options[0] = new Option("<-Pick Year","-1",true,true) |
document.logproblem.Semester.options[0] = new Option("<-Pick $$codetitles[0]","-1",true,true) |
} |
} |
else { |
else { |
document.forms.logproblem.Semester.length = 0 |
document.logproblem.Semester.length = 0 |
document.forms.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
for (var i=0; i<idsems[idyr-1].length; i++) { |
for (var i=0; i<idsems[idyr-1].length; i++) { |
document.forms.logproblem.Semester.options[i+1] = new Option(idsemlongs[idyr-1][i],idsems[idyr-1][i],false,false) |
document.logproblem.Semester.options[i+1] = new Option(idsemlongs[idyr-1][i],idsems[idyr-1][i],false,false) |
} |
} |
} |
} |
document.forms.logproblem.Semester.selectedIndex = 0; |
document.logproblem.Semester.selectedIndex = 0; |
} |
} |
if (caller == "Semester") { |
if (caller == "$$codetitles[1]") { |
document.forms.logproblem.Department.length = 0 |
document.logproblem.Department.length = 0 |
document.forms.logproblem.Number.length = 0 |
document.logproblem.Number.length = 0 |
document.forms.logproblem.Number.options[0] = new Option("<-Pick Department.","-1",true,true) |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
if (idsem == 0) { |
if (idsem == 0) { |
document.forms.logproblem.Department.options[0] = new Option("<-Pick Semester.","-1",true,true) |
document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
document.forms.logproblem.Department.options[0] = new Option("<-Pick Semester","-1",true,true) |
|
} |
} |
else { |
else { |
document.forms.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
document.forms.logproblem.Department.options[i+1] = new Option(idcodes[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
document.logproblem.Department.options[i+1] = new Option(idcodes[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
} |
} |
} |
} |
document.forms.logproblem.Department.selectedIndex = 0 |
document.logproblem.Department.selectedIndex = 0 |
} |
} |
if (caller == "Department") { |
if (caller == "$$codetitles[2]") { |
document.forms.logproblem.Number.length = 0 |
document.logproblem.Number.length = 0 |
if (iddept == 0) { |
if (iddept == 0) { |
document.forms.logproblem.Number.options[0] = new Option("<-Pick Department.","-1",true,true) |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
} |
} |
else { |
else { |
document.forms.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) { |
for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) { |
document.forms.logproblem.Number.options[i+1] = new Option(idcourses[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
document.logproblem.Number.options[i+1] = new Option(idcourses[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
} |
} |
} |
} |
document.forms.logproblem.Number.selectedIndex = 0 |
document.logproblem.Number.selectedIndex = 0 |
} |
} |
} |
} |
END_OF_BLOCK |
END_OF_BLOCK |