version 1.12, 2011/02/25 02:07:46
|
version 1.17, 2014/03/16 22:27:06
|
Line 37 use LONCAPA;
|
Line 37 use LONCAPA;
|
sub retrieve_instcodes { |
sub retrieve_instcodes { |
my ($coursecodes,$codedom) = @_; |
my ($coursecodes,$codedom) = @_; |
my $totcodes; |
my $totcodes; |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.', undef,undef,'Course'); |
my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.','.', |
|
undef,undef,'Course'); |
foreach my $course (keys(%courses)) { |
foreach my $course (keys(%courses)) { |
if (ref($courses{$course}) eq 'HASH') { |
if (ref($courses{$course}) eq 'HASH') { |
if ($courses{$course}{'inst_code'} ne '') { |
if ($courses{$course}{'inst_code'} ne '') { |
Line 579 sub build_instcode_selectors {
|
Line 580 sub build_instcode_selectors {
|
@longitems = @items; |
@longitems = @items; |
} |
} |
$output .= '<td align="center">'.$codetitles->[$k].'<br />'."\n". |
$output .= '<td align="center">'.$codetitles->[$k].'<br />'."\n". |
'<select name="'.$standardnames[$k].'" onChange="courseSet(this)"'. |
'<select name="'.$standardnames[$k].'" onchange="courseSet(this)"'. |
'>'."\n".'<option value="0">'.&mt('All').'</option>'."\n"; |
'>'."\n".'<option value="0">'.&mt('All').'</option>'."\n"; |
for (my $i=0; $i<@items; $i++) { |
for (my $i=0; $i<@items; $i++) { |
if ($longitems[$i] eq '') { |
if ($longitems[$i] eq '') { |
Line 604 sub build_instcode_selectors {
|
Line 605 sub build_instcode_selectors {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub instcode_selectors { |
|
my ($codedom,$formname,$officialjs,$codetitles) = @_; |
|
my ($output,%cat_titles,%cat_order,%cat_items); |
|
my ($jscript,$totcodes,$numtitles,$lasttitle) = |
|
&instcode_selectors_data($codedom,$formname,\%cat_items,$codetitles, |
|
\%cat_titles,\%cat_order,$officialjs); |
|
if ($numtitles > 0) { |
|
my $official = ' checked="checked" '; |
|
my $unofficial = ''; |
|
if ($env{'form.official'} eq 'off') { |
|
$unofficial = $official; |
|
$official = ''; |
|
} |
|
$output .= '<span class="LC_nobreak">'.&mt('Official course:').' <label>'. |
|
'<input type="radio" name="official" value="on"'.$official.' />'. |
|
&mt('Yes').'</label>'.(' 'x3).'<label>'. |
|
'<input type="radio" name="official" value="off"'.$unofficial. |
|
' onclick="toggleOfficial();" />'.&mt('No').'</label></span><br />'. |
|
&build_instcode_selectors($numtitles,$lasttitle,\%cat_items,$codetitles, |
|
\%cat_titles,\%cat_order)."\n". |
|
'<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n". |
|
'<input type="hidden" name="state" value="listing" />'."\n"; |
|
} |
|
return ($output,$jscript,$numtitles); |
|
} |
|
|
sub recurse_options { |
sub recurse_options { |
my ($currkey,$currlist,$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept) = @_; |
my ($currkey,$currlist,$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept) = @_; |
if (ref($currlist) eq 'HASH') { |
if (ref($currlist) eq 'HASH') { |
Line 688 sub build_javascript {
|
Line 715 sub build_javascript {
|
|
|
sub javascript_select_filler { |
sub javascript_select_filler { |
my ($formname,$scripttext,$codetitles,$longtitles_str,$allidlist,$officialjs) = @_; |
my ($formname,$scripttext,$codetitles,$longtitles_str,$allidlist,$officialjs) = @_; |
|
my $all = &mt('All'); |
|
my $nocrs = &mt('No courses'); |
my $output = <<END; |
my $output = <<END; |
|
|
function courseSet(caller) { |
function courseSet(caller) { |
Line 710 function courseSet(caller) {
|
Line 739 function courseSet(caller) {
|
if (selYear == -1) { |
if (selYear == -1) { |
if (selSemester == -1) { |
if (selSemester == -1) { |
if (selDepartment > -1) { |
if (selDepartment > -1) { |
document.$formname.Number.options[0] = new Option('All','0',false,false); |
document.$formname.Number.options[0] = new Option('$all','0',false,false); |
for (var k=0; k<idcse_by_dep[selDepartment].length; k++) { |
for (var k=0; k<idcse_by_dep[selDepartment].length; k++) { |
document.$formname.Number.options[k+1] = new Option(idcse_by_dep[selDepartment][k],idcse_by_dep[selDepartment][k],false,false); |
document.$formname.Number.options[k+1] = new Option(idcse_by_dep[selDepartment][k],idcse_by_dep[selDepartment][k],false,false); |
|
|
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option("All","0",true,true); |
document.$formname.Number.options[0] = new Option('$all','0',true,true); |
} |
} |
} |
} |
else { |
else { |
Line 735 function courseSet(caller) {
|
Line 764 function courseSet(caller) {
|
} |
} |
} |
} |
if (iddept != -1) { |
if (iddept != -1) { |
document.$formname.Number.options[0] = new Option('All','0',false,false); |
document.$formname.Number.options[0] = new Option('$all','0',false,false); |
for (var k=0; k<idcse_by_sem_num[idsem][iddept].length; k++) { |
for (var k=0; k<idcse_by_sem_num[idsem][iddept].length; k++) { |
document.$formname.Number.options[k+1] = new Option(idcse_by_sem_num[idsem][iddept][k],idcse_by_sem_num[idsem][iddept][k],false,false); |
document.$formname.Number.options[k+1] = new Option(idcse_by_sem_num[idsem][iddept][k],idcse_by_sem_num[idsem][iddept][k],false,false); |
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option('No courses','0',true,true); |
document.$formname.Number.options[0] = new Option('$nocrs','0',true,true); |
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option("All","0",true,true); |
document.$formname.Number.options[0] = new Option('$all','0',true,true); |
} |
} |
} |
} |
} |
} |
Line 765 function courseSet(caller) {
|
Line 794 function courseSet(caller) {
|
} |
} |
} |
} |
if (iddept != -1) { |
if (iddept != -1) { |
document.$formname.Number.options[0] = new Option('All','0',false,false); |
document.$formname.Number.options[0] = new Option('$all','0',false,false); |
for (var k=0; k<idcse_by_yr_num[idyr][iddept].length; k++) { |
for (var k=0; k<idcse_by_yr_num[idyr][iddept].length; k++) { |
document.$formname.Number.options[k+1] = new Option(idcse_by_yr_num[idyr][iddept][k],idcse_by_yr_num[idyr][iddept][k],false,false); |
document.$formname.Number.options[k+1] = new Option(idcse_by_yr_num[idyr][iddept][k],idcse_by_yr_num[idyr][iddept][k],false,false); |
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option('No courses','0',true,true); |
document.$formname.Number.options[0] = new Option('$nocrs','0',true,true); |
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option("All","0",true,true); |
document.$formname.Number.options[0] = new Option('$all','0',true,true); |
} |
} |
} |
} |
else { |
else { |
Line 800 function courseSet(caller) {
|
Line 829 function courseSet(caller) {
|
} |
} |
} |
} |
if (iddept != -1) { |
if (iddept != -1) { |
document.$formname.Number.options[0] = new Option('All','0',false,false); |
document.$formname.Number.options[0] = new Option('$all','0',false,false); |
for (var i=0; i<idcourses[idyr][idsem][iddept].length; i++) { |
for (var i=0; i<idcourses[idyr][idsem][iddept].length; i++) { |
var display = idcourses[idyr][idsem][iddept][i]; |
var display = idcourses[idyr][idsem][iddept][i]; |
if (longtitles[3] == 1) { |
if (longtitles[3] == 1) { |
Line 812 function courseSet(caller) {
|
Line 841 function courseSet(caller) {
|
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option('No courses','0',true,true); |
document.$formname.Number.options[0] = new Option('$nocrs','0',true,true); |
} |
} |
} |
} |
else { |
else { |
document.$formname.Number.options[0] = new Option('All','0',true,true); |
document.$formname.Number.options[0] = new Option('$all','0',true,true); |
} |
} |
} |
} |
document.$formname.Number.selectedIndex = 0 |
document.$formname.Number.selectedIndex = 0 |
Line 867 sub instcode_search_str {
|
Line 896 sub instcode_search_str {
|
} |
} |
|
|
sub instcode_from_selectors { |
sub instcode_from_selectors { |
my ($cdom) = @_; |
my ($cdom,$noregexps) = @_; |
my $instcode; |
my $instcode; |
my $caller = 'global'; |
my $caller = 'global'; |
my (%coursecodes,%codes,@codetitles,%cat_titles,%cat_order, |
my (%coursecodes,%codes,@codetitles,%cat_titles,%cat_order, |
Line 888 sub instcode_from_selectors {
|
Line 917 sub instcode_from_selectors {
|
my $category = $local_to_standard{$loctitle}; |
my $category = $local_to_standard{$loctitle}; |
if ($category ne '') { |
if ($category ne '') { |
if ($env{'form.'.$category} eq '-1' ) { |
if ($env{'form.'.$category} eq '-1' ) { |
$instcode .= $codedefaults{$category}; |
if ($noregexps) { |
|
$instcode .= ' '; |
|
} else { |
|
$instcode .= $codedefaults{$category}; |
|
} |
} else { |
} else { |
$instcode .= $env{'form.'.$category}; |
$instcode .= $env{'form.'.$category}; |
} |
} |