--- loncom/interface/courseclassifier.pm 2022/11/05 06:00:07 1.28 +++ loncom/interface/courseclassifier.pm 2023/03/15 14:37:12 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utilities for classifying courses based on institutional code # -# $Id: courseclassifier.pm,v 1.28 2022/11/05 06:00:07 raeburn Exp $ +# $Id: courseclassifier.pm,v 1.29 2023/03/15 14:37:12 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,7 +69,8 @@ sub recurse_list { push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]}; } } 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 { %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = (); @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}"); @@ -529,11 +530,11 @@ sub instcode_selectors_data { %{$cat_order} = %{$instcats->{'cat_order'}}; $totcodes = scalar(keys(%{$codes})); if ((!$totcodes) && (exists($instcats->{'totcodes'}))) { - $totcodes = $instcats->{'totcodes'}; + $totcodes = $instcats->{'totcodes'}; } &build_code_selections($codes,$codetitles,$cat_titles,$cat_order, \%idlist,\%idnums,\%idlist_titles); - my ($scripttext,$longtitles) = + my ($scripttext,$longtitles) = &javascript_definitions($codetitles,\%idlist,\%idlist_titles, \%idnums,$cat_titles); my $longtitles_str = join('","',@{$longtitles});