version 1.19, 2014/07/31 15:45:27
|
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++) { |