| … | |
… | |
| 18 | my $self = shift; |
18 | my $self = shift; |
| 19 | my $r = $self->{r}; |
19 | my $r = $self->{r}; |
| 20 | my $courseEnvironment = $self->{courseEnvironment}; |
20 | my $courseEnvironment = $self->{courseEnvironment}; |
| 21 | my $user = $r->param('user'); |
21 | my $user = $r->param('user'); |
| 22 | |
22 | |
| 23 | print startform({-method=>"POST", -action=>$r->uri."set4/"}); |
23 | print startform({-method=>"POST", -action=>$r->uri."set0/"}); |
| 24 | print $self->hidden_authen_fields; |
24 | print $self->hidden_authen_fields; |
| 25 | print input({-type=>"submit", -value=>"Do Set 4"}); |
25 | print input({-type=>"submit", -value=>"Do Set 0"}); |
| 26 | print endform; |
26 | print endform; |
| 27 | ""; |
27 | ""; |
| 28 | } |
28 | } |
| 29 | |
29 | |
| 30 | 1; |
30 | 1; |