version 1.27, 2005/04/10 23:45:57
|
version 1.30, 2006/03/15 19:41:26
|
Line 62 sub handler {
|
Line 62 sub handler {
|
|
|
sub print_request_form { |
sub print_request_form { |
my ($r,$origurl,$function) = @_; |
my ($r,$origurl,$function) = @_; |
my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server); |
my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,$formname); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0" onLoad="initialize_codes()"',1); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0" onLoad="initialize_codes()"',1); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg'); |
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) { |
Line 79 sub print_request_form {
|
Line 79 sub print_request_form {
|
$urole = $env{'request.role'}; |
$urole = $env{'request.role'}; |
$usec = $env{'request.course.sec'}; |
$usec = $env{'request.course.sec'}; |
$cid = $env{'request.course.id'}; |
$cid = $env{'request.course.id'}; |
|
$formname = 'logproblem'; |
if ($origurl =~ m-^http://-) { |
if ($origurl =~ m-^http://-) { |
$server = $origurl; |
$server = $origurl; |
} else { |
} else { |
Line 189 function initialize_codes() {
|
Line 190 function initialize_codes() {
|
if ($format_reply eq 'ok') { |
if ($format_reply eq 'ok') { |
my $numtypes = @codetitles; |
my $numtypes = @codetitles; |
&build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
&build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
&javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
&javascript_code_selections($formname,$numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
$loaditems = ''; |
$loaditems = ''; |
} |
} |
} |
} |
} |
} |
|
|
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::headtag('LON-CAPA support request'); |
|
my $end_head = &Apache::loncommon::endheadtag(); |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
$html |
$html |
<head> |
$head |
<title>LON-CAPA support request</title> |
|
<script type"text/javascript"> |
<script type"text/javascript"> |
$scripttag |
$scripttag |
$jscript |
$jscript |
</script> |
</script> |
</head> |
$end_head |
$bodytag |
$bodytag |
ENDHEAD |
ENDHEAD |
if ($r->uri eq '/adm/helpdesk') { |
if ($r->uri eq '/adm/helpdesk') { |
Line 594 END
|
Line 597 END
|
</tr> |
</tr> |
END |
END |
} |
} |
|
|
$r->print(<<END); |
$r->print(<<END); |
<tr> |
<tr> |
<td width="140" bgcolor="$tablecolor"> |
<td width="140" bgcolor="$tablecolor"> |
Line 630 END
|
Line 634 END
|
</tr> |
</tr> |
</table> |
</table> |
</form> |
</form> |
</body> |
|
</html> |
|
END |
END |
|
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
|
|
Line 695 Date/Time: $reporttime
|
Line 698 Date/Time: $reporttime
|
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
<font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br /> |
|; |
|; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::head('LON-CAPA support request recorded'); |
$r->print(<<"END"); |
$r->print(<<"END"); |
$html |
$html |
<head> |
$head |
<title>LON-CAPA support request recorded</title> |
|
</head> |
|
$bodytag |
$bodytag |
<form name="logproblem"> |
<form name="logproblem"> |
<input type="hidden" name="action" value="result" /> |
<input type="hidden" name="action" value="result" /> |
Line 890 END
|
Line 892 END
|
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
</body> |
|
</html> |
|
"); |
"); |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
sub print_header { |
sub print_header { |
Line 967 Please review the information in "Log-in
|
Line 968 Please review the information in "Log-in
|
|
|
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); |
Line 1186 sub recurse_list {
|
Line 1187 sub recurse_list {
|
} |
} |
|
|
sub javascript_code_selections { |
sub javascript_code_selections { |
my ($numcats,$cat_titles,$script_tag,$idlist,$idnums,$idlist_titles,$codetitles) = @_; |
my ($formname,$numcats,$cat_titles,$script_tag,$idlist,$idnums,$idlist_titles,$codetitles) = @_; |
my $numtitles = @{$codetitles}; |
my $numtitles = @{$codetitles}; |
my @seltitles = (); |
my @seltitles = (); |
for (my $j=0; $j<$numtitles; $j++) { |
for (my $j=0; $j<$numtitles; $j++) { |
Line 1207 function courseSet(caller) {
|
Line 1208 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 longtitles = new Array ("$longtitles_str"); |
var longtitles = new Array ("$longtitles_str"); |
var idyr = document.logproblem.Year.selectedIndex |
var idyr = document.$formname.Year.selectedIndex |
var idsem = document.logproblem.Semester.selectedIndex |
var idsem = document.$formname.Semester.selectedIndex |
var iddept = document.logproblem.Department.selectedIndex |
var iddept = document.$formname.Department.selectedIndex |
var idclass = document.logproblem.Number.selectedIndex |
var idclass = document.$formname.Number.selectedIndex |
var idyears = new Array("$$idlist{$$codetitles[0]}"); |
var idyears = new Array("$$idlist{$$codetitles[0]}"); |
END |
END |
if ($longtitles[0]) { |
if ($longtitles[0]) { |
Line 1274 END
|
Line 1275 END
|
} |
} |
$$script_tag .= (<<END_OF_BLOCK); |
$$script_tag .= (<<END_OF_BLOCK); |
var display = new Array($numtitles) |
var display = new Array($numtitles) |
if (caller == "") { |
if (caller == "" || caller == "$$codetitles[0]") { |
document.logproblem.Year.length = 0 |
if (caller == "") { |
document.logproblem.Year.options[0] = new Option("Select","-1",true,true) |
document.$formname.Year.length = 0 |
display[0] = new Array(idyears.length) |
document.$formname.Year.options[0] = new Option("Select","-1",true,true) |
for (var i=0; i<idyears.length; i++) { |
display[0] = new Array(idyears.length) |
display[0][i] = idyears[i] |
for (var i=0; i<idyears.length; i++) { |
if (longtitles[0] == 1) { |
display[0][i] = idyears[i] |
if (idyearslongs[i] != "") { |
if (longtitles[0] == 1) { |
display[0][i] = idyearslongs[i] |
if (idyearslongs[i] != "") { |
} |
display[0][i] = idyearslongs[i] |
} |
} |
document.logproblem.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false) |
} |
} |
else { |
document.logproblem.Year.selectedIndex = 0; |
if (idyearslongs[i] != "") { |
} |
display[0][i] = idyears[i] |
if (caller == "$$codetitles[0]") { |
} |
document.logproblem.Department.length = 0 |
} |
document.logproblem.Number.length = 0 |
document.$formname.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false) |
document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
} |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
document.$formname.Year.selectedIndex = 0; |
if (idyr == 0) { |
} |
document.logproblem.Semester.length = 0 |
document.$formname.Semester.length = 0 |
document.logproblem.Semester.options[0] = new Option("<-Pick $$codetitles[0]","-1",true,true) |
document.$formname.Department.length = 0; |
} |
document.$formname.Number.length = 0 |
else { |
document.$formname.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
document.logproblem.Semester.length = 0 |
document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
if (idyr == 0 || caller == "") { |
display[1] = new Array(idsems[idyr-1].length) |
document.$formname.Semester.options[0] = new Option("<-Pick $$codetitles[0]","-1",true,true) |
for (var i=0; i<idsems[idyr-1].length; i++) { |
} |
display[1][i] = idsems[idyr-1][i] |
else { |
if (longtitles[1] == 1) { |
document.$formname.Semester.options[0] = new Option("Select","-1",true,true) |
if (idsemslongs[idyr-1][i] != "") { |
display[1] = new Array(idsems[idyr-1].length) |
display[1][i] = idsemslongs[idyr-1][i] |
for (var i=0; i<idsems[idyr-1].length; i++) { |
} |
display[1][i] = idsems[idyr-1][i] |
} |
if (longtitles[1] == 1) { |
document.logproblem.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false) |
if (idsemslongs[idyr-1][i] != "") { |
} |
display[1][i] = idsemslongs[idyr-1][i] |
} |
} |
document.logproblem.Semester.selectedIndex = 0; |
} |
|
document.$formname.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false) |
|
} |
|
} |
|
document.$formname.Semester.selectedIndex = 0; |
} |
} |
if (caller == "$$codetitles[1]") { |
if (caller == "$$codetitles[1]") { |
document.logproblem.Department.length = 0 |
document.$formname.Department.length = 0 |
document.logproblem.Number.length = 0 |
document.$formname.Number.length = 0 |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
if (idsem == 0) { |
if (idsem == 0) { |
document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
document.$formname.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true) |
} |
} |
else { |
else { |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
document.$formname.Department.options[0] = new Option("Select","-1",true,true) |
display[2] = new Array(idcodes[idyr-1][idsem-1].length) |
display[2] = new Array(idcodes[idyr-1][idsem-1].length) |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) { |
display[2][i] = idcodes[idyr-1][idsem-1][i] |
display[2][i] = idcodes[idyr-1][idsem-1][i] |
Line 1331 END
|
Line 1336 END
|
display[2][i] = idcodeslongs[idyr-1][idsem-1][i] |
display[2][i] = idcodeslongs[idyr-1][idsem-1][i] |
} |
} |
} |
} |
document.logproblem.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false) |
document.$formname.Department.options[i+1] = new Option(display[2][i],idcodes[idyr-1][idsem-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Department.selectedIndex = 0 |
document.$formname.Department.selectedIndex = 0 |
} |
} |
if (caller == "$$codetitles[2]") { |
if (caller == "$$codetitles[2]") { |
document.logproblem.Number.length = 0 |
document.$formname.Number.length = 0 |
if (iddept == 0) { |
if (iddept == 0) { |
document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
document.$formname.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true) |
} |
} |
else { |
else { |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
document.$formname.Number.options[0] = new Option("Select","-1",true,true) |
display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length) |
display[3] = new Array (idcourses[idyr-1][idsem-1][iddept-1].length) |
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++) { |
display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i] |
display[3][i] = idcourses[idyr-1][idsem-1][iddept-1][i] |
Line 1351 END
|
Line 1356 END
|
display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i] |
display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i] |
} |
} |
} |
} |
document.logproblem.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
document.$formname.Number.options[i+1] = new Option(display[3][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Number.selectedIndex = 0 |
document.$formname.Number.selectedIndex = 0 |
} |
} |
} |
} |
|
|