From 575716093f46d882db2d3c377723735cea1eb438 Mon Sep 17 00:00:00 2001 From: Michael Gage Date: Sat, 8 Jun 2013 15:12:32 -0400 Subject: [PATCH] Fix stupid $ typogit add GatewayQuiz.pm! --- lib/WeBWorK/ContentGenerator/GatewayQuiz.pm | 2 +- lib/WeBWorK/ContentGenerator/Problem.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WeBWorK/ContentGenerator/GatewayQuiz.pm b/lib/WeBWorK/ContentGenerator/GatewayQuiz.pm index bf505320db..413391a151 100644 --- a/lib/WeBWorK/ContentGenerator/GatewayQuiz.pm +++ b/lib/WeBWorK/ContentGenerator/GatewayQuiz.pm @@ -1020,7 +1020,7 @@ sub pre_header_initialize { foreach my $key (keys %$formFields) { if ($key =~ /AnSwEr/) { $formFields->{$key} = $scrubber->scrub( - (defined $formFields->{$key})? $formFields->{key}:'' # using // would be more elegant but breaks perl 5.8.x + (defined $formFields->{$key})? $formFields->{$key}:'' # using // would be more elegant but breaks perl 5.8.x ); ### HTML::scrubber is a little too enthusiastic about ### removing > and < so we have to add them back in otherwise diff --git a/lib/WeBWorK/ContentGenerator/Problem.pm b/lib/WeBWorK/ContentGenerator/Problem.pm index c5dfa4c2ea..310cae9aa7 100644 --- a/lib/WeBWorK/ContentGenerator/Problem.pm +++ b/lib/WeBWorK/ContentGenerator/Problem.pm @@ -733,7 +733,7 @@ sub pre_header_initialize { foreach my $key (keys %$formFields) { if ($key =~ /AnSwEr/) { $formFields->{$key} = $scrubber->scrub( - (defined $formFields->{$key})? $formFields->{key}:'' # using // would be more elegant but breaks perl 5.8.x + (defined $formFields->{$key})? $formFields->{$key}:'' # using // would be more elegant but breaks perl 5.8.x ); ### HTML::scrubber is a little too enthusiastic about ### removing > and < so we have to add them back in otherwise