|
version 1.36, 2006/07/11 15:37:59
|
version 1.37, 2006/09/01 21:07:11
|
|
Line 1105 sub sort_cats {
|
Line 1105 sub sort_cats {
|
| my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_; |
my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_; |
| my @unsorted = @{$idsarrayref}; |
my @unsorted = @{$idsarrayref}; |
| if (defined($$cat_order{$$codetitles[$num]})) { |
if (defined($$cat_order{$$codetitles[$num]})) { |
| foreach (@{$$cat_order{$$codetitles[$num]}}) { |
foreach my $item (@{$$cat_order{$$codetitles[$num]}}) { |
| if (grep/^$_$/,@unsorted) { |
if (grep/^\Q$item\E$/,@unsorted) { |
| push @{$sorted}, $_; |
push @{$sorted}, $item; |
| } |
} |
| } |
} |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsupportreq.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface