loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1388, 2022/09/13 12:22:14	version 1.1389, 2022/09/28 15:13:50
Line 18477 sub recurse_supplemental {	Line 18477 sub recurse_supplemental {
if ($fatal) {	if ($fatal) {
$errors ++;	$errors ++;
} else {	} else {
if ($#LONCAPA::map::resources > 0) {	my @order = @LONCAPA::map::order;
foreach my $res (@LONCAPA::map::resources) {	if (@order > 0) {
my ($title,$src,$ext,$type,$status)=split(/\:/,$res);	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 ne '') && ($status eq 'res')) {
if ($src =~ m{^\Q/uploaded/$cdom/$cnum/\E(supplemental_\d+\.sequence)$}) {	if ($src =~ m{^\Q/uploaded/$cdom/$cnum/\E(supplemental_\d+\.sequence)$}) {
($numfiles,$numexttools,$errors) = &recurse_supplemental($cnum,$cdom,$1,	($numfiles,$numexttools,$errors) = &recurse_supplemental($cnum,$cdom,$1,