version 1.22, 2015/05/21 23:26:34
|
version 1.25, 2017/01/18 21:07:31
|
Line 260 sub build_code_selections {
|
Line 260 sub build_code_selections {
|
} |
} |
|
|
sub javascript_code_selections { |
sub javascript_code_selections { |
my ($formname,@codetitles) = @_; |
my ($formname,$codetitlesref) = @_; |
|
return unless (ref($codetitlesref) eq 'ARRAY'); |
|
my @codetitles = @{$codetitlesref}; |
my $numtitles = @codetitles; |
my $numtitles = @codetitles; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
Select => 'Select', |
Select => 'Select', |
Line 575 function setElements() {
|
Line 577 function setElements() {
|
} |
} |
|
|
sub build_instcode_selectors { |
sub build_instcode_selectors { |
my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id) = @_; |
my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id,$noedit) = @_; |
my $output; |
my $output; |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
my @standardnames = &Apache::loncommon::get_standard_codeitems(); |
if ($numtitles > 0) { |
if ($numtitles > 0) { |
Line 586 sub build_instcode_selectors {
|
Line 588 sub build_instcode_selectors {
|
if ($id eq '') { |
if ($id eq '') { |
$id = 'instcodes'; |
$id = 'instcodes'; |
} |
} |
|
my $disabled; |
|
if ($noedit) { |
|
$disabled = ' disabled="disabled"'; |
|
} |
$output .= '<div id="'.$id.'"'.$style.'><table><tr>'; |
$output .= '<div id="'.$id.'"'.$style.'><table><tr>'; |
for (my $k=0; $k<$lasttitle-1; $k++) { |
for (my $k=0; $k<$lasttitle-1; $k++) { |
my (@items,@unsorted); |
my (@items,@unsorted); |
Line 606 sub build_instcode_selectors {
|
Line 612 sub build_instcode_selectors {
|
if ($class) { |
if ($class) { |
$output .= ' class="'.$class.'"'; |
$output .= ' class="'.$class.'"'; |
} |
} |
$output .= '>'."\n".'<option value="0">'.&mt('All').'</option>'."\n"; |
$output .= $disabled.'>'."\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 '') { |
$longitems[$i] = $items[$i]; |
$longitems[$i] = $items[$i]; |
Line 616 sub build_instcode_selectors {
|
Line 622 sub build_instcode_selectors {
|
$output .= '</select></td>'; |
$output .= '</select></td>'; |
} |
} |
$output .= '<td align="center">'.$codetitles->[$lasttitle-1].'<br />'."\n". |
$output .= '<td align="center">'.$codetitles->[$lasttitle-1].'<br />'."\n". |
'<select name="'.$standardnames[$lasttitle-1].'">'."\n". |
'<select name="'.$standardnames[$lasttitle-1].'"'; |
|
if ($class) { |
|
$output .= ' class="'.$class.'"'; |
|
} |
|
$output .= $disabled.'>'."\n". |
'<option value="0">'.&mt('All')."\n". |
'<option value="0">'.&mt('All')."\n". |
'</option>'."\n".'</select>'."\n". |
'</option>'."\n".'</select>'."\n". |
'</td></tr></table>'."\n"; |
'</td></tr></table>'."\n"; |
if ($numtitles > 4) { |
if ($numtitles > 4) { |
$output .= '<br /><br />'.$codetitles->[$numtitles-1].'<br />'."\n". |
$output .= '<br /><br />'.$codetitles->[$numtitles-1].'<br />'."\n". |
'<input type="text" name="'.$standardnames[$numtitles-1]. |
'<input type="text" name="'.$standardnames[$numtitles-1]. |
'" /><br />'."\n"; |
'"'.$disabled.' /><br />'."\n"; |
} |
} |
$output .= '</div>'; |
$output .= '</div>'; |
} |
} |