| … | |
… | |
| 34 | # hints and the display mode to use |
34 | # hints and the display mode to use |
| 35 | ) = @_; |
35 | ) = @_; |
| 36 | |
36 | |
| 37 | # write timing log entry |
37 | # write timing log entry |
| 38 | writeTimingLogEntry($courseEnv, "WeBWorK::PG::new", |
38 | writeTimingLogEntry($courseEnv, "WeBWorK::PG::new", |
| 39 | "user=".$user->id.",problem=".$courseEnv->{courseName}."/".$set->set_id."/".$problem->problem_id.",mode=".$translationOptions->{displayMode}, |
39 | "user=".$user->user_id.",problem=".$courseEnv->{courseName}."/".$set->set_id."/".$problem->problem_id.",mode=".$translationOptions->{displayMode}, |
| 40 | "begin"); |
40 | "begin"); |
| 41 | |
41 | |
| 42 | # install a local warn handler to collect warnings |
42 | # install a local warn handler to collect warnings |
| 43 | my $warnings = ""; |
43 | my $warnings = ""; |
| 44 | local $SIG{__WARN__} = sub { $warnings .= shift } |
44 | local $SIG{__WARN__} = sub { $warnings .= shift } |
| … | |
… | |
| 270 | $envir{sectionName} = $user->section; |
270 | $envir{sectionName} = $user->section; |
| 271 | $envir{sectionNumber} = $envir{sectionName}; |
271 | $envir{sectionNumber} = $envir{sectionName}; |
| 272 | $envir{recitationName} = $user->recitation; |
272 | $envir{recitationName} = $user->recitation; |
| 273 | $envir{recitationNumber} = $envir{recitationName}; |
273 | $envir{recitationNumber} = $envir{recitationName}; |
| 274 | $envir{setNumber} = $set->set_id; |
274 | $envir{setNumber} = $set->set_id; |
| 275 | $envir{studentLogin} = $user->id; |
275 | $envir{studentLogin} = $user->user_id; |
| 276 | $envir{studentName} = $user->first_name . " " . $user->last_name; |
276 | $envir{studentName} = $user->first_name . " " . $user->last_name; |
| 277 | $envir{studentID} = $user->student_id; |
277 | $envir{studentID} = $user->student_id; |
| 278 | |
278 | |
| 279 | # Answer Information |
279 | # Answer Information |
| 280 | # REMOVED: refSubmittedAnswers |
280 | # REMOVED: refSubmittedAnswers |