Add message about accessing set via LMS.

When viewing the set information before access a set via an LMS
for homework grade passback, show a warning that they must access
the set via the LMS before starting. They will be able to see
the set info, they just won't be able to access any problems
or start any test versions.

Author: somiaj

lib/WeBWorK/Authz.pm

@@ -486,17 +486,21 @@ sub checkSet {
 	# for this set before students access it.
 	my $LTIGradeMode = $ce->{LTIGradeMode} // '';
 
-	if ($LTIGradeMode eq 'homework' && !$self->hasPermissions($userName, "view_unopened_sets")) {
+	if ($LTIGradeMode eq 'homework'
+		&& !$self->hasPermissions($userName, "view_unopened_sets")
+		&& !($set->lis_source_did || ($ce->{LTIVersion} eq 'v1p3' && $ce->{LTI}{v1p3}{ignoreMissingSourcedID})))
+	{
 		my $LMS =
 			$ce->{LTI}{ $ce->{LTIVersion} }{LMS_url}
 			? $c->link_to($ce->{LTI}{ $ce->{LTIVersion} }{LMS_name} => $ce->{LTI}{ $ce->{LTIVersion} }{LMS_url})
 			: $ce->{LTI}{ $ce->{LTIVersion} }{LMS_name};
+		$c->{viewSetCheck} = 'lti_restricted'
+			if $node_name eq 'problem_list' && $self->hasPermissions($userName, 'view_unopened_set_info');
 		return $c->b($c->maketext(
 			'You must use your Learning Management System ([_1]) to access this set.  '
 				. 'Try logging in to the Learning Management System and visiting the set from there.',
 			$LMS
-		))
-			unless $set->lis_source_did || ($ce->{LTIVersion} eq 'v1p3' && $ce->{LTI}{v1p3}{ignoreMissingSourcedID});
+		));
 	}
 
 	return 0;

lib/WeBWorK/ContentGenerator/ProblemSet.pm

@@ -167,7 +167,7 @@ sub siblings ($c) {
 }
 
 sub info ($c) {
-	return $c->include('ContentGenerator/ProblemSet/info');
+	return $c->{pg} ? $c->include('ContentGenerator/ProblemSet/info') : '';
 }
 
 # This is called by the ContentGenerator/ProblemSet/body template for a regular homework set.

templates/ContentGenerator/ProblemSet.html.ep

@@ -33,6 +33,15 @@
 % if ($c->{viewSetCheck} && $c->{viewSetCheck} eq 'restricted') {
 	<div class="alert alert-warning"><%= $c->{invalidSet} %></div>
 % }
+% # Show a warning that the user must access the set via their LMS before they can start.
+% if ($c->{viewSetCheck} && $c->{viewSetCheck} eq 'lti_restricted') {
+	<div class="alert alert-warning">
+		<%= maketext('You must access this set via your Learning Management System ([_1]) before starting.',
+			$ce->{LTI}{ $ce->{LTIVersion} }{LMS_url}
+			? $c->link_to($ce->{LTI}{ $ce->{LTIVersion} }{LMS_name} => $ce->{LTI}{ $ce->{LTIVersion} }{LMS_url})
+			: $ce->{LTI}{ $ce->{LTIVersion} }{LMS_name}) %>
+	</div>
+% }
 %
 <%= include 'ContentGenerator/ProblemSet/auxiliary_tools' =%>
 %