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

Diff for /loncom/interface/courseclassifier.pm between versions 1.28 and 1.29

version 1.28, 2022/11/05 06:00:07 version 1.29, 2023/03/15 14:37:12
Line 69  sub recurse_list { Line 69  sub recurse_list {
                     push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};                      push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};
                 }                  }
             } else {              } else {
                 @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");            }                  @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
               }
         } else {          } else {
             %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();              %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();
             @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");              @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
Line 529  sub instcode_selectors_data { Line 530  sub instcode_selectors_data {
             %{$cat_order} = %{$instcats->{'cat_order'}};              %{$cat_order} = %{$instcats->{'cat_order'}};
             $totcodes = scalar(keys(%{$codes}));              $totcodes = scalar(keys(%{$codes}));
             if ((!$totcodes) && (exists($instcats->{'totcodes'}))) {              if ((!$totcodes) && (exists($instcats->{'totcodes'}))) {
                 $totcodes = $instcats->{'totcodes'};                    $totcodes = $instcats->{'totcodes'};
             }              }
             &build_code_selections($codes,$codetitles,$cat_titles,$cat_order,              &build_code_selections($codes,$codetitles,$cat_titles,$cat_order,
                                    \%idlist,\%idnums,\%idlist_titles);                                     \%idlist,\%idnums,\%idlist_titles);
             my ($scripttext,$longtitles) =               my ($scripttext,$longtitles) =
                 &javascript_definitions($codetitles,\%idlist,\%idlist_titles,                  &javascript_definitions($codetitles,\%idlist,\%idlist_titles,
                                         \%idnums,$cat_titles);                                          \%idnums,$cat_titles);
             my $longtitles_str = join('","',@{$longtitles});              my $longtitles_str = join('","',@{$longtitles});
Removed from v.1.28  
changed lines
  Added in v.1.29

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