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

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

version 1.18, 2014/03/17 02:33:32 version 1.21, 2015/05/13 19:30:13
Line 148  sub build_code_selections { Line 148  sub build_code_selections {
     for (my $i=1; $i<@{$codetitles}; $i++) {      for (my $i=1; $i<@{$codetitles}; $i++) {
         %{$idarrays{$$codetitles[$i]}} = ();          %{$idarrays{$$codetitles[$i]}} = ();
     }      }
     foreach my $cid (sort keys %{$codes}) {      foreach my $cid (sort(keys(%{$codes}))) {
         &recurse_list($cid,$codetitles,$codes,0,\%idarrays);          &recurse_list($cid,$codetitles,$codes,0,\%idarrays);
     }      }
     for (my $num=0; $num<@{$codetitles}; $num++) {      for (my $num=0; $num<@{$codetitles}; $num++) {
Line 169  sub build_code_selections { Line 169  sub build_code_selections {
         } elsif ($num == 1) {          } elsif ($num == 1) {
             %{$$idlist{$$codetitles[1]}} = ();              %{$$idlist{$$codetitles[1]}} = ();
             %{$$idlist_titles{$$codetitles[1]}} = ();              %{$$idlist_titles{$$codetitles[1]}} = ();
             foreach my $key_a (keys %{$idarrays{$$codetitles[1]}}) {              foreach my $key_a (keys(%{$idarrays{$$codetitles[1]}})) {
                 my @sorted_a = ();                  my @sorted_a = ();
                 my @sorted_a_titles = ();                  my @sorted_a_titles = ();
                 &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);                  &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);
Line 187  sub build_code_selections { Line 187  sub build_code_selections {
         } elsif ($num == 2) {          } elsif ($num == 2) {
             %{$$idlist{$$codetitles[2]}} = ();              %{$$idlist{$$codetitles[2]}} = ();
             %{$$idlist_titles{$$codetitles[2]}} = ();              %{$$idlist_titles{$$codetitles[2]}} = ();
             foreach my $key_a (keys %{$idarrays{$$codetitles[2]}}) {              foreach my $key_a (keys(%{$idarrays{$$codetitles[2]}})) {
                 %{$$idlist{$$codetitles[2]}{$key_a}} = ();                  %{$$idlist{$$codetitles[2]}{$key_a}} = ();
                 %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();                  %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();
                 foreach my $key_b (keys %{$idarrays{$$codetitles[2]}{$key_a}}) {                  foreach my $key_b (keys(%{$idarrays{$$codetitles[2]}{$key_a}})) {
                     my @sorted_b = ();                      my @sorted_b = ();
                     my @sorted_b_titles = ();                      my @sorted_b_titles = ();
                     &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);                      &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);
Line 208  sub build_code_selections { Line 208  sub build_code_selections {
             }              }
         } elsif ($num == 3) {          } elsif ($num == 3) {
             %{$$idlist{$$codetitles[3]}} = ();              %{$$idlist{$$codetitles[3]}} = ();
             foreach my $key_a (keys %{$idarrays{$$codetitles[3]}}) {              foreach my $key_a (keys(%{$idarrays{$$codetitles[3]}})) {
                 %{$$idlist{$$codetitles[3]}{$key_a}} = ();                  %{$$idlist{$$codetitles[3]}{$key_a}} = ();
                 foreach my $key_b (keys %{$idarrays{$$codetitles[3]}{$key_a}}) {                  foreach my $key_b (keys(%{$idarrays{$$codetitles[3]}{$key_a}})) {
                     %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();                      %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();
                     foreach my $key_c (keys %{$idarrays{$$codetitles[3]}{$key_a}{$key_b}}) {                      foreach my $key_c (keys(%{$idarrays{$$codetitles[3]}{$key_a}{$key_b}})) {
                         my @sorted_c = ();                          my @sorted_c = ();
                         my @sorted_c_titles = ();                          my @sorted_c_titles = ();
                         &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);                          &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);
Line 231  sub build_code_selections { Line 231  sub build_code_selections {
             }              }
         } elsif ($num == 4) {          } elsif ($num == 4) {
             %{$$idlist{$$codetitles[4]}} = ();              %{$$idlist{$$codetitles[4]}} = ();
             foreach my $key_a (keys %{$idarrays{$$codetitles[4]}}) {              foreach my $key_a (keys(%{$idarrays{$$codetitles[4]}})) {
                 %{$$idlist{$$codetitles[4]}{$key_a}} = ();                  %{$$idlist{$$codetitles[4]}{$key_a}} = ();
                 foreach my $key_b (keys %{$idarrays{$$codetitles[4]}{$key_a}}) {                  foreach my $key_b (keys(%{$idarrays{$$codetitles[4]}{$key_a}})) {
                     %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();                      %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();
                     foreach my $key_c (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}}) {                      foreach my $key_c (keys(%{$idarrays{$$codetitles[4]}{$key_a}{$key_b}})) {
                         %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();                          %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();
                         foreach my $key_d (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}}) {                          foreach my $key_d (keys(%{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}})) {
                             my @sorted_d = ();                              my @sorted_d = ();
                             my @sorted_d_titles = ();                              my @sorted_d_titles = ();
                             &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);                              &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);
Line 687  sub build_javascript { Line 687  sub build_javascript {
     my ($by_year,$by_sem,$by_dept,$cat_order,$codetitles) = @_;      my ($by_year,$by_sem,$by_dept,$cat_order,$codetitles) = @_;
     my @unsorted = keys(%{$by_year});      my @unsorted = keys(%{$by_year});
     my @sorted_yrs;      my @sorted_yrs;
     &sort_cats('0',$cat_order,$codetitles,\@unsorted,\@sorted_yrs);    my $output = 'var idcse_by_yr_year = new Array("'.join('","',@sorted_yrs).'");'."\n".      &sort_cats('0',$cat_order,$codetitles,\@unsorted,\@sorted_yrs);
       my $output = 'var idcse_by_yr_year = new Array("'.join('","',@sorted_yrs).'");'."\n".
                  'var idcse_by_yr_dept = new Array('.scalar(@sorted_yrs).');'."\n".                   'var idcse_by_yr_dept = new Array('.scalar(@sorted_yrs).');'."\n".
                  'var idcse_by_yr_num = new Array('.scalar(@sorted_yrs).');'."\n";                   'var idcse_by_yr_num = new Array('.scalar(@sorted_yrs).');'."\n";
     for (my $i=0; $i<@sorted_yrs; $i++) {      for (my $i=0; $i<@sorted_yrs; $i++) {
Line 739  sub javascript_select_filler { Line 740  sub javascript_select_filler {
     my $nocrs = &mt('No courses');      my $nocrs = &mt('No courses');
     my $output = <<END;      my $output = <<END;
   
 function courseSet(caller) {  function courseSet(caller, onload) {
     var longtitles = new Array ("$longtitles_str");      var longtitles = new Array ("$longtitles_str");
     var valyr = document.$formname.Year.options[document.$formname.Year.selectedIndex].value      var valyr = '';
     var valsem  = document.$formname.Semester.options[document.$formname.Semester.selectedIndex].value      var valsem = '';
     var valdept = document.$formname.Department.options[document.$formname.Department.selectedIndex].value      var valdept = '';
     var valclass = document.$formname.Number.options[document.$formname.Number.selectedIndex].value      var valclass = '';
       if (onload) {
           valyr = "$env{'form.Year'}";
           valsem = "$env{'form.Semester'}";
           valdept = "$env{'form.Department'}";
           valclass = "$env{'form.Number'}";
       } else {
           valyr = document.$formname.Year.options[document.$formname.Year.selectedIndex].value;
           valsem  = document.$formname.Semester.options[document.$formname.Semester.selectedIndex].value;
           valdept = document.$formname.Department.options[document.$formname.Department.selectedIndex].value;
           valclass = document.$formname.Number.options[document.$formname.Number.selectedIndex].value;
       }
     var idyears = new Array("$allidlist");      var idyears = new Array("$allidlist");
     var idyr = -1;      var idyr = -1;
     var idsem = -1;      var idsem = -1;
Line 753  function courseSet(caller) { Line 765  function courseSet(caller) {
   
     $scripttext      $scripttext
   
     selYear = document.$formname.Year.selectedIndex-1;      if (onload) {
     selSemester = document.$formname.Semester.selectedIndex-1;          if (document.$formname.Year.options.length > 0) {
     selDepartment = document.$formname.Department.selectedIndex-1;              for (var i = 0; i< document.$formname.Year.options.length; i++) {
                   if (document.$formname.Year.options[i].value == "$env{'form.Year'}") {
                       document.$formname.Year.selectedIndex = i;
                       break;
                   }
               }
           }
           if (document.$formname.Department.options.length > 0) {
               for (var i = 0; i< document.$formname.Department.options.length; i++) {
                   if (document.$formname.Department.options[i].value == "$env{'form.Department'}") {
                       document.$formname.Department.selectedIndex = i;
                       break;
                   }
               }
           }
           if (document.$formname.Semester.options.length > 0) {
               for (var i = 0; i< document.$formname.Semester.options.length; i++) {
                   if (document.$formname.Semester.options[i].value == "$env{'form.Semester'}") {
                       document.$formname.Semester.selectedIndex = i;
                       break;
                   }
               }
           }
       }
   
       var selYear = document.$formname.Year.selectedIndex-1;
       var selSemester = document.$formname.Semester.selectedIndex-1;
       var selDepartment = document.$formname.Department.selectedIndex-1;
     if (selYear == -1) {      if (selYear == -1) {
         if (selSemester == -1) {          if (selSemester == -1) {
             if (selDepartment > -1) {              if (selDepartment > -1) {
Line 870  function courseSet(caller) { Line 909  function courseSet(caller) {
         }          }
         document.$formname.Number.selectedIndex = 0          document.$formname.Number.selectedIndex = 0
     }      }
     $officialjs      if (onload) {
           if (document.$formname.Number.options.length > 0) {
               for (var i = 0; i< document.$formname.Number.options.length; i++) {
                   if (document.$formname.Number.options[i].value == "$env{'form.Number'}") {
                       document.$formname.Number.selectedIndex = i;
                       break;
                   }
               }
           }
       } else {
           $officialjs
       }
 }  }
 END  END
     return $output;      return $output;
Removed from v.1.18  
changed lines
  Added in v.1.21

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