| … | |
… | |
| 42 | "user=".$user->id.",problem=".$courseEnv->{courseName}."/".$set->id."/".$problem->id.",mode=".$translationOptions->{displayMode}, |
42 | "user=".$user->id.",problem=".$courseEnv->{courseName}."/".$set->id."/".$problem->id.",mode=".$translationOptions->{displayMode}, |
| 43 | "begin"); |
43 | "begin"); |
| 44 | |
44 | |
| 45 | # install a local warn handler to collect warnings |
45 | # install a local warn handler to collect warnings |
| 46 | my $warnings = ""; |
46 | my $warnings = ""; |
|
|
47 | if ($courseEnv->{pg}->{options}->{catchWarnings}) { |
| 47 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
48 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
|
|
49 | } else { |
|
|
50 | $warnings = "WeBWorK::PG: PG warnings are not being caught. Check STDERR.\n"; |
|
|
51 | } |
| 48 | |
52 | |
| 49 | # create a Translator |
53 | # create a Translator |
| 50 | #warn "PG: creating a Translator\n"; |
54 | #warn "PG: creating a Translator\n"; |
| 51 | my $translator = WeBWorK::PG::Translator->new; |
55 | my $translator = WeBWorK::PG::Translator->new; |
| 52 | |
56 | |