Parent Directory
| 
Revision Log
Revision 403 - (view) (download) (as text)
| 1 : | malsyned | 353 | package WeBWorK::ContentGenerator::ProblemSets; |
| 2 : | our @ISA = qw(WeBWorK::ContentGenerator); | ||
| 3 : | |||
| 4 : | use WeBWorK::ContentGenerator; | ||
| 5 : | use Apache::Constants qw(:common); | ||
| 6 : | use CGI qw(-compile :html :form); | ||
| 7 : | |||
| 8 : | sub title { | ||
| 9 : | my $self = shift; | ||
| 10 : | my $r = $self->{r}; | ||
| 11 : | my $courseEnvironment = $self->{courseEnvironment}; | ||
| 12 : | my $user = $r->param('user'); | ||
| 13 : | |||
| 14 : | return "Problem Sets for $user"; | ||
| 15 : | } | ||
| 16 : | |||
| 17 : | sub body { | ||
| 18 : | my $self = shift; | ||
| 19 : | my $r = $self->{r}; | ||
| 20 : | my $courseEnvironment = $self->{courseEnvironment}; | ||
| 21 : | my $user = $r->param('user'); | ||
| 22 : | |||
| 23 : | malsyned | 403 | print startform({-method=>"POST", -action=>$r->uri."set0/"}); |
| 24 : | malsyned | 353 | print $self->hidden_authen_fields; |
| 25 : | malsyned | 403 | print input({-type=>"submit", -value=>"Do Set 0"}); |
| 26 : | malsyned | 353 | print endform; |
| 27 : | ""; | ||
| 28 : | } | ||
| 29 : | |||
| 30 : | 1; |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |