version 1.21, 2004/12/31 02:46:18
|
version 1.22, 2004/12/31 20:29:27
|
Line 36 sub handler {
|
Line 36 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); |
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0",marginheight="0"',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')) { |
$tablecolor = '#EEEE99'; |
$tablecolor = '#EEEE99'; |
Line 135 END
|
Line 135 END
|
my $totcodes = 0; |
my $totcodes = 0; |
my $format_reply; |
my $format_reply; |
my $jscript = ''; |
my $jscript = ''; |
|
my $loaditems = qq| |
|
function initialize_codes() { |
|
return; |
|
} |
|
|; |
if ($cdom) { |
if ($cdom) { |
$codedom = $cdom; |
$codedom = $cdom; |
} |
} |
Line 152 END
|
Line 156 END
|
$totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
$totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes); |
} |
} |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
$format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
|
if ($ccode eq '') { |
if ($ccode eq '') { |
my $numtypes = @codetitles; |
$format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); |
&build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); |
if ($format_reply eq 'ok') { |
&javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles); |
my $numtypes = @codetitles; |
|
&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); |
|
$loaditems = ''; |
|
} |
} |
} |
} |
} |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
Line 392 END
|
Line 399 END
|
} else { |
} else { |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
$longitems[0] = $idlist_titles{$codetitles[0]}; |
} |
} |
|
for (my $i=0; $i<@longitems; $i++) { |
|
if ($longitems[$i] eq '') { |
|
$longitems[$i] = $items[$i]; |
|
} |
|
} |
} else { |
} else { |
@longitems = @items; |
@longitems = @items; |
} |
} |
Line 452 END
|
Line 464 END
|
<td> |
<td> |
END |
END |
if ($sectionlist) { |
if ($sectionlist) { |
$r->print("<select name=\"section\">"); |
$r->print("<select name=\"section\"\n>". |
|
" <option value=\"\" selected=\"selected\">Select</option>\n"); |
foreach (sort keys %groupid) { |
foreach (sort keys %groupid) { |
if ($_ eq $groupid{$_} || $groupid{$_} eq '') { |
if ($_ eq $groupid{$_} || $groupid{$_} eq '') { |
$r->print("<option value=\"$_\" />$_"); |
$r->print(" <option value=\"$_\" >$_</option>\n"); |
} else { |
} else { |
$r->print("<option value=\"$_\" />$_ - (LON-CAPA sec: $groupid{$_})"); |
$r->print(" <option value=\"$_\" >$_ - (LON-CAPA sec: $groupid{$_})</option>\n"); |
} |
} |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
Line 1206 END
|
Line 1219 END
|
} |
} |
} |
} |
$$script_tag .= (<<END_OF_BLOCK); |
$$script_tag .= (<<END_OF_BLOCK); |
|
var display = new Array($numtitles) |
|
if (caller == "") { |
|
document.logproblem.Year.length = 0 |
|
document.logproblem.Year.options[0] = new Option("Select","-1",true,true) |
|
display[0] = new Array(idyears.length) |
|
for (var i=0; i<idyears.length; i++) { |
|
display[0][i] = idyears[i] |
|
if (longtitles[0] == 1) { |
|
if (idyearslongs[i] != "") { |
|
display[0][i] = idyearslongs[i] |
|
} |
|
} |
|
document.logproblem.Year.options[i+1] = new Option(display[0][i],idyears[i],false,false) |
|
} |
|
document.logproblem.Year.selectedIndex = 0; |
|
} |
if (caller == "$$codetitles[0]") { |
if (caller == "$$codetitles[0]") { |
document.logproblem.Department.length = 0 |
document.logproblem.Department.length = 0 |
document.logproblem.Number.length = 0 |
document.logproblem.Number.length = 0 |
Line 1218 END
|
Line 1247 END
|
else { |
else { |
document.logproblem.Semester.length = 0 |
document.logproblem.Semester.length = 0 |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Semester.options[0] = new Option("Select","-1",true,true) |
|
display[1] = new Array(idsems[idyr-1].length) |
for (var i=0; i<idsems[idyr-1].length; i++) { |
for (var i=0; i<idsems[idyr-1].length; i++) { |
|
display[1][i] = idsems[idyr-1][i] |
if (longtitles[1] == 1) { |
if (longtitles[1] == 1) { |
document.logproblem.Semester.options[i+1] = new Option(idsemslongs[idyr-1][i],idsems[idyr-1][i],false,false) |
if (idsemslongs[idyr-1][i] != "") { |
} |
display[1][i] = idsemslongs[idyr-1][i] |
else { |
} |
document.logproblem.Semester.options[i+1] = new Option(idsems[idyr-1][i],idsems[idyr-1][i],false,false) |
|
} |
} |
|
document.logproblem.Semester.options[i+1] = new Option(display[1][i],idsems[idyr-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Semester.selectedIndex = 0; |
document.logproblem.Semester.selectedIndex = 0; |
Line 1238 END
|
Line 1269 END
|
} |
} |
else { |
else { |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Department.options[0] = new Option("Select","-1",true,true) |
|
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] |
if (longtitles[2] == 1) { |
if (longtitles[2] == 1) { |
document.logproblem.Department.options[i+1] = new Option(idcodeslongs[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false) |
if (idcodeslongs[idyr-1][idsem-1][i] != "") { |
} |
display[2][i] = idcodeslongs[idyr-1][idsem-1][i] |
else { |
} |
document.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(display[2][i],idcodes[idyr-1][idsem-1][i],false,false) |
} |
} |
} |
} |
document.logproblem.Department.selectedIndex = 0 |
document.logproblem.Department.selectedIndex = 0 |
Line 1256 END
|
Line 1289 END
|
} |
} |
else { |
else { |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
document.logproblem.Number.options[0] = new Option("Select","-1",true,true) |
|
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] |
if (longtitles[3] == 1) { |
if (longtitles[3] == 1) { |
document.logproblem.Number.options[i+1] = new Option(idcourseslongs[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false) |
if (idcourseslongs[idyr-1][idsem-1][iddept-1][i] != "") { |
} |
display[3][i] = idcourseslongs[idyr-1][idsem-1][iddept-1][i] |
else { |
} |
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.logproblem.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.logproblem.Number.selectedIndex = 0 |
} |
} |
} |
} |
|
|
|
function initialize_codes() { |
|
courseSet(); |
|
return; |
|
} |
END_OF_BLOCK |
END_OF_BLOCK |
} |
} |
|
|