| … | |
… | |
| 156 | print $self->problemListRow($set, $problem); |
156 | print $self->problemListRow($set, $problem); |
| 157 | } |
157 | } |
| 158 | |
158 | |
| 159 | print CGI::end_table(); |
159 | print CGI::end_table(); |
| 160 | |
160 | |
|
|
161 | # feedback form |
|
|
162 | my $ce = $self->{courseEnvironment}; |
|
|
163 | my $root = $ce->{webworkURLs}->{root}; |
|
|
164 | my $courseName = $ce->{courseName}; |
|
|
165 | my $feedbackURL = "$root/$courseName/feedback/"; |
|
|
166 | print |
|
|
167 | CGI::startform("POST", $feedbackURL), |
|
|
168 | $self->hidden_authen_fields, |
|
|
169 | CGI::hidden("module", __PACKAGE__), |
|
|
170 | CGI::hidden("set", $set->id), |
|
|
171 | CGI::p({-align=>"right"}, |
|
|
172 | CGI::submit(-name=>"feedbackForm", -label=>"Send Feedback") |
|
|
173 | ), |
|
|
174 | CGI::endform(); |
|
|
175 | |
| 161 | return ""; |
176 | return ""; |
| 162 | } |
177 | } |
| 163 | |
178 | |
| 164 | sub problemListRow($$$) { |
179 | sub problemListRow($$$) { |
| 165 | my $self = shift; |
180 | my $self = shift; |
Parent Directory
| 
Revision Log
| 
Patch