|
36 | 36 | </thead>
|
37 | 37 | <tbody>
|
38 | 38 | % my @rows = (
|
39 |
| - % ['Problem ID', $problem->problem_id], |
40 |
| - % ['Source file', $problem->source_file], |
41 |
| - % ['Value', $problem->value], |
42 |
| - % ['Max attempts', $problem->max_attempts == -1 ? 'unlimited' : $problem->max_attempts], |
43 |
| - % ['Random seed', $problem->problem_seed], |
44 |
| - % ['Status', $problem->status], |
45 |
| - % ['Attempted', $problem->attempted ? 'yes' : 'no'], |
46 |
| - % ['Correct attempts', $problem->num_correct], |
47 |
| - % ['Incorrect attempts', $problem->num_incorrect] |
| 39 | + % [ 'Problem ID', $problem->problem_id ], |
| 40 | + % [ 'Source file', $problem->source_file ], |
| 41 | + % [ 'Value', $problem->value ], |
| 42 | + % [ 'Max attempts', $problem->max_attempts == -1 ? 'unlimited' : $problem->max_attempts ], |
| 43 | + % [ 'Random seed', $problem->problem_seed ], |
| 44 | + % [ 'Status', $problem->status ], |
| 45 | + % [ 'Attempted', $problem->attempted ? 'yes' : 'no' ], |
| 46 | + % [ 'Correct attempts', $problem->num_correct ], |
| 47 | + % [ 'Incorrect attempts', $problem->num_incorrect ] |
48 | 48 | % );
|
49 | 49 | % for (@rows) {
|
50 | 50 | <tr>
|
|
81 | 81 | </thead>
|
82 | 82 | <tbody>
|
83 | 83 | % my @rows = (
|
84 |
| - % ['Set ID', $set->set_id], |
85 |
| - % ['Set header file', $set->set_header], |
86 |
| - % ['Hardcopy header file', $set->hardcopy_header], |
87 |
| - % ['Open date', $c->formatDateTime($set->open_date)], |
88 |
| - % ['Close date', $c->formatDateTime($set->due_date)], |
89 |
| - % ['Answer date', $c->formatDateTime($set->answer_date)], |
90 |
| - % ['Visible', $set->visible ? 'yes' : 'no'], |
91 |
| - % ['Assignment type', $set->assignment_type] |
| 84 | + % [ 'Set ID', $set->set_id ], |
| 85 | + % [ 'Set header file', $set->set_header ], |
| 86 | + % [ 'Hardcopy header file', $set->hardcopy_header ], |
| 87 | + % [ 'Open date', $c->formatDateTime($set->open_date) ], |
| 88 | + % [ 'Close date', $c->formatDateTime($set->due_date) ], |
| 89 | + % [ 'Answer date', $c->formatDateTime($set->answer_date) ], |
| 90 | + % [ 'Visible', $set->visible ? 'yes' : 'no' ], |
| 91 | + % [ 'Assignment type', $set->assignment_type ] |
92 | 92 | % );
|
93 | 93 | % if ($set->assignment_type =~ /gateway/) {
|
94 | 94 | % push @rows, (
|
95 |
| - % ['Attempts per version', $set->attempts_per_version], |
96 |
| - % ['Time interval', $set->time_interval], |
97 |
| - % ['Versions per interval', $set->versions_per_interval], |
98 |
| - % ['Version time limit', $set->version_time_limit], |
99 |
| - % ['Version creation time', $c->formatDateTime($set->version_creation_time)], |
100 |
| - % ['Problem randorder', $set->problem_randorder], |
101 |
| - % ['Version last attempt time', $set->version_last_attempt_time] |
| 95 | + % [ 'Attempts per version', $set->attempts_per_version ], |
| 96 | + % [ 'Time interval', $set->time_interval ], |
| 97 | + % [ 'Versions per interval', $set->versions_per_interval ], |
| 98 | + % [ 'Version time limit', $set->version_time_limit ], |
| 99 | + % [ 'Version creation time', $c->formatDateTime($set->version_creation_time) ], |
| 100 | + % [ 'Problem randorder', $set->problem_randorder ], |
| 101 | + % [ 'Version last attempt time', $set->version_last_attempt_time ] |
102 | 102 | % );
|
103 | 103 | % }
|
104 | 104 | % for (@rows) {
|
|
118 | 118 | </thead>
|
119 | 119 | <tbody>
|
120 | 120 | % my @rows = (
|
121 |
| - % ['Display Mode', param('displayMode')], |
122 |
| - % ['Show Old Answers', param('showOldAnswers') ? 'yes' : 'no'], |
123 |
| - % ['Show Correct Answers', param('showCorrectAnswers') ? 'yes' : 'no'], |
124 |
| - % ['Show Hints', param('showHints') ? 'yes' : 'no'], |
125 |
| - % ['Show Solutions', param('showSolutions') ? 'yes' : 'no'] |
| 121 | + % [ 'Display Mode', param('displayMode') ], |
| 122 | + % [ 'Show Old Answers', param('showOldAnswers') ? 'yes' : 'no' ], |
| 123 | + % [ 'Show Correct Answers', param('showCorrectAnswers') ? 'yes' : 'no' ], |
| 124 | + % [ 'Show Hints', param('showHints') ? 'yes' : 'no' ], |
| 125 | + % [ 'Show Solutions', param('showSolutions') ? 'yes' : 'no' ] |
126 | 126 | % );
|
127 | 127 | % for (@rows) {
|
128 | 128 | <tr>
|
|
142 | 142 | </thead>
|
143 | 143 | <tbody>
|
144 | 144 | % my @rows = (
|
145 |
| - % ['User ID', $user->user_id], |
146 |
| - % ['Name', $user->full_name], |
147 |
| - % ['Email', $user->email_address] |
| 145 | + % [ 'User ID', $user->user_id ], |
| 146 | + % [ 'Name', $user->full_name ], |
| 147 | + % [ 'Email', $user->email_address ] |
148 | 148 | % );
|
149 |
| - % unless ($ce->{blockStudentIDinFeedback}) {push @rows, ['Student ID', $user->student_id];} |
| 149 | + % unless ($ce->{blockStudentIDinFeedback}) { push @rows, ['Student ID', $user->student_id]; } |
150 | 150 | % my $status_name = $ce->status_abbrev_to_name($user->status);
|
151 | 151 | % my $status_string =
|
152 | 152 | % defined $status_name
|
153 | 153 | % ? "$status_name ('" . $user->status . q{')}
|
154 | 154 | % : $user->status . ' (unknown status abbreviation)';
|
155 | 155 | % push @rows, (
|
156 |
| - % ['Status', $status_string], |
157 |
| - % ['Section', $user->section], |
158 |
| - % ['Recitation', $user->recitation], |
159 |
| - % ['Comment', $user->comment], |
160 |
| - % ['IP Address', $remote_host] |
| 156 | + % [ 'Status', $status_string ], |
| 157 | + % [ 'Section', $user->section ], |
| 158 | + % [ 'Recitation', $user->recitation ], |
| 159 | + % [ 'Comment', $user->comment ], |
| 160 | + % [ 'IP Address', $remote_host ] |
161 | 161 | %);
|
162 | 162 | % for (@rows) {
|
163 | 163 | <tr>
|
|
0 commit comments