--- loncom/interface/lonrelrequtils.pm 2018/01/02 14:43:17 1.6 +++ loncom/interface/lonrelrequtils.pm 2018/01/03 04:20:54 1.7 @@ -1,7 +1,7 @@ #!/usr/bin/perl # The LearningOnline Network # -# $Id: lonrelrequtils.pm,v 1.6 2018/01/02 14:43:17 raeburn Exp $ +# $Id: lonrelrequtils.pm,v 1.7 2018/01/03 04:20:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -520,6 +520,14 @@ sub coursecontent_constraints { $Apache::lonrelrequtils::randomizetry{minor},$reqdmajor,$reqdminor); } } + my $suppmap = 'supplemental.sequence'; + my ($suppcount,$suppexttools,$errors) = (0,0,0); + ($suppcount,$suppexttools,$errors) = + &Apache::loncommon::recurse_supplemental($cnum,$cdom,$suppmap,$suppcount,$suppexttools,$errors); + if ($suppexttools) { + ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($Apache::lonrelrequtils::exttool{major}, + $Apache::lonrelrequtils::exttool{minor}); + } return ($reqdmajor,$reqdminor); }