diff --git a/templates/ContentGenerator/Instructor/PGProblemEditor/pg_critic.html.ep b/templates/ContentGenerator/Instructor/PGProblemEditor/pg_critic.html.ep index 7659b7453c..33de2acdcf 100644 --- a/templates/ContentGenerator/Instructor/PGProblemEditor/pg_critic.html.ep +++ b/templates/ContentGenerator/Instructor/PGProblemEditor/pg_critic.html.ep @@ -2,7 +2,11 @@ %

<%= maketext('PG Critic Violations') %>

- % my @pgCriticViolations = grep { $_->policy =~ /^Perl::Critic::Policy::PG::/ } @$violations; + % my @pgCriticViolations = grep { $_->policy =~ /^Perl::Critic::Policy::PG::/ } @$violations; + % my @perlCriticViolations = grep { $_->policy !~ /^Perl::Critic::Policy::PG::/ } @$violations; + % unless (@pgCriticViolations || @perlCriticViolations) { +

<%= maketext('Congratulations! No PG critic violations found.') %>

+ % } % if (@pgCriticViolations) {

<%= maketext('The following PG issues should be fixed:') %>

- %} - % my @perlCriticViolations = grep { $_->policy !~ /^Perl::Critic::Policy::PG::/ } @$violations; + % } % if (@perlCriticViolations) {

<%= maketext('The following general Perl issues should be fixed:') %>

- %} + % }