| … | |
… | |
| 351 | : "", |
351 | : "", |
| 352 | "You have $attemptsLeft $attemptsLeftNoun remaining.", CGI::br(), |
352 | "You have $attemptsLeft $attemptsLeftNoun remaining.", CGI::br(), |
| 353 | $setClosedMessage, |
353 | $setClosedMessage, |
| 354 | ); |
354 | ); |
| 355 | |
355 | |
| 356 | # BY THE WAY.......... |
|
|
| 357 | # we have to figure out some way to tell the student if their NEW answer, |
|
|
| 358 | # on THIS attempt, has been recorded. however, this is decided in part by |
|
|
| 359 | # the grader, so is there any way for us to know? we can rule out several |
|
|
| 360 | # cases where the answer is NOT being recorded, because of things decided |
|
|
| 361 | # in &canRecordAnswers... |
|
|
| 362 | |
|
|
| 363 | print CGI::hr(); |
356 | print CGI::hr(); |
| 364 | |
357 | |
| 365 | # main form |
358 | # main form |
| 366 | print |
359 | print |
| 367 | CGI::startform("POST", $r->uri), |
360 | CGI::startform("POST", $r->uri), |
| … | |
… | |
| 379 | if ($pg->{warnings} ne "") { |
372 | if ($pg->{warnings} ne "") { |
| 380 | print CGI::hr(), warningOutput($pg->{warnings}); |
373 | print CGI::hr(), warningOutput($pg->{warnings}); |
| 381 | } |
374 | } |
| 382 | |
375 | |
| 383 | # debugging stuff |
376 | # debugging stuff |
| 384 | print |
377 | #print |
| 385 | CGI::hr(), |
378 | # CGI::hr(), |
| 386 | CGI::h2("debugging information"), |
379 | # CGI::h2("debugging information"), |
| 387 | CGI::h3("form fields"), |
380 | # CGI::h3("form fields"), |
| 388 | ref2string($self->{formFields}), |
381 | # ref2string($self->{formFields}), |
| 389 | CGI::h3("user object"), |
382 | # CGI::h3("user object"), |
| 390 | ref2string($self->{user}), |
383 | # ref2string($self->{user}), |
| 391 | CGI::h3("set object"), |
384 | # CGI::h3("set object"), |
| 392 | ref2string($set), |
385 | # ref2string($set), |
| 393 | CGI::h3("problem object"), |
386 | # CGI::h3("problem object"), |
| 394 | ref2string($problem), |
387 | # ref2string($problem), |
| 395 | CGI::h3("PG object"), |
388 | # CGI::h3("PG object"), |
| 396 | ref2string($pg, {'WeBWorK::PG::Translator' => 1}); |
389 | # ref2string($pg, {'WeBWorK::PG::Translator' => 1}); |
| 397 | |
390 | |
| 398 | return ""; |
391 | return ""; |
| 399 | } |
392 | } |
| 400 | |
393 | |
| 401 | ##### output utilities ##### |
394 | ##### output utilities ##### |
Parent Directory
| 
Revision Log
| 
Patch