version 1.19, 2014/07/31 15:45:27
|
version 1.20, 2014/12/11 00:07:12
|
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); |