--- loncom/interface/loncommon.pm 2022/09/13 12:22:14 1.1388 +++ loncom/interface/loncommon.pm 2022/10/18 23:28:00 1.1390 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1388 2022/09/13 12:22:14 raeburn Exp $ +# $Id: loncommon.pm,v 1.1390 2022/10/18 23:28:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -18477,9 +18477,11 @@ sub recurse_supplemental { if ($fatal) { $errors ++; } else { - if ($#LONCAPA::map::resources > 0) { - foreach my $res (@LONCAPA::map::resources) { - my ($title,$src,$ext,$type,$status)=split(/\:/,$res); + my @order = @LONCAPA::map::order; + if (@order > 0) { + my @resources = @LONCAPA::map::resources; + foreach my $idx (@order) { + my ($title,$src,$ext,$type,$status)=split(/\:/,$resources[$idx]); if (($src ne '') && ($status eq 'res')) { if ($src =~ m{^\Q/uploaded/$cdom/$cnum/\E(supplemental_\d+\.sequence)$}) { ($numfiles,$numexttools,$errors) = &recurse_supplemental($cnum,$cdom,$1, @@ -18690,7 +18692,7 @@ sub create_captcha { $output = ''."\n". ''. &mt('Type in the letters/numbers shown below').' '. - ''. + ''. '
'. 'captcha'; last;