version 1.27, 2019/07/23 13:58:53
|
version 1.28, 2022/11/05 06:00:07
|
Line 528 sub instcode_selectors_data {
|
Line 528 sub instcode_selectors_data {
|
%{$cat_titles} = %{$instcats->{'cat_titles'}}; |
%{$cat_titles} = %{$instcats->{'cat_titles'}}; |
%{$cat_order} = %{$instcats->{'cat_order'}}; |
%{$cat_order} = %{$instcats->{'cat_order'}}; |
$totcodes = scalar(keys(%{$codes})); |
$totcodes = scalar(keys(%{$codes})); |
|
if ((!$totcodes) && (exists($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) = |