[BACK]Return to courseclassifier.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/courseclassifier.pm between versions 1.21 and 1.22

version 1.21, 2015/05/13 19:30:13 version 1.22, 2015/05/21 23:26:34
Line 575  function setElements() { Line 575  function setElements() {
 }  }
   
 sub build_instcode_selectors {  sub build_instcode_selectors {
     my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order) = @_;      my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id) = @_;
     my $output;      my $output;
     my @standardnames = &Apache::loncommon::get_standard_codeitems();      my @standardnames = &Apache::loncommon::get_standard_codeitems();
     if ($numtitles > 0) {      if ($numtitles > 0) {
         my $style;          my $style;
         if ($env{'form.official'} eq 'off') {          if ($official eq 'off') {
             $style = ' style="display: none"';              $style = ' style="display: none"';
         }          }
         $output .= '<div id="instcodes"'.$style.'><table><tr>';          if ($id eq '') {
               $id = 'instcodes';
           }
           $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);
             if (ref($cat_items->{$codetitles->[$k]}) eq 'ARRAY') {              if (ref($cat_items->{$codetitles->[$k]}) eq 'ARRAY') {
Line 599  sub build_instcode_selectors { Line 602  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";              if ($class) {
                   $output .= ' class="'.$class.'"';
               }
               $output .= '>'."\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 644  sub instcode_selectors { Line 650  sub instcode_selectors {
                    '<input type="radio" name="official" value="off"'.$unofficial.                     '<input type="radio" name="official" value="off"'.$unofficial.
                    ' onclick="toggleOfficial();" />'.&mt('No').'</label></span><br />'.                     ' onclick="toggleOfficial();" />'.&mt('No').'</label></span><br />'.
                    &build_instcode_selectors($numtitles,$lasttitle,\%cat_items,$codetitles,                     &build_instcode_selectors($numtitles,$lasttitle,\%cat_items,$codetitles,
                                              \%cat_titles,\%cat_order)."\n".                                               \%cat_titles,\%cat_order,$env{'form.official'})."\n".
                    '<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n".                     '<input type="hidden" name="numtitles" value="'.$numtitles.'" />'."\n".
                    '<input type="hidden" name="state" value="listing" />'."\n";                     '<input type="hidden" name="state" value="listing" />'."\n";
     }      }
Removed from v.1.21  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>