| … | |
… | |
| 275 | if ($readErrors) { |
275 | if ($readErrors) { |
| 276 | # well, we couldn't get the problem source, for some reason. |
276 | # well, we couldn't get the problem source, for some reason. |
| 277 | return bless { |
277 | return bless { |
| 278 | translator => $translator, |
278 | translator => $translator, |
| 279 | head_text => "", |
279 | head_text => "", |
|
|
280 | post_header_text => "", |
| 280 | body_text => <<EOF, |
281 | body_text => <<EOF, |
| 281 | WeBWorK::Utils::readFile($sourceFilePath) says: |
282 | WeBWorK::Utils::readFile($sourceFilePath) says: |
| 282 | $@ |
283 | $@ |
| 283 | EOF |
284 | EOF |
| 284 | answers => {}, |
285 | answers => {}, |
| … | |
… | |
| 383 | # writeTimingLogEntry($ce, "WeBWorK::PG::new", "", "end"); |
384 | # writeTimingLogEntry($ce, "WeBWorK::PG::new", "", "end"); |
| 384 | |
385 | |
| 385 | # return an object which contains the translator and the results of |
386 | # return an object which contains the translator and the results of |
| 386 | # the translation process. this is DIFFERENT from the "format expected |
387 | # the translation process. this is DIFFERENT from the "format expected |
| 387 | # by Webwork.pm (and I believe processProblem8, but check.)" |
388 | # by Webwork.pm (and I believe processProblem8, but check.)" |
|
|
389 | |
|
|
390 | |
| 388 | return bless { |
391 | return bless { |
| 389 | translator => $translator, |
392 | translator => $translator, |
| 390 | head_text => ${ $translator->r_header }, |
393 | head_text => ${ $translator->r_header }, |
|
|
394 | post_header_text => ${ $translator->r_post_header}, |
| 391 | body_text => ${ $body_text_ref }, |
395 | body_text => ${ $body_text_ref } , |
| 392 | answers => $translator->rh_evaluated_answers, |
396 | answers => $translator->rh_evaluated_answers, |
| 393 | result => $result, |
397 | result => $result, |
| 394 | state => $state, |
398 | state => $state, |
| 395 | errors => $translator->errors, |
399 | errors => $translator->errors, |
| 396 | warnings => $warnings, |
400 | warnings => $warnings, |
Parent Directory
| 
Revision Log
| 
Patch