| … | |
… | |
| 9 | |
9 | |
| 10 | use strict; |
10 | use strict; |
| 11 | use warnings; |
11 | use warnings; |
| 12 | use CGI qw(); |
12 | use CGI qw(); |
| 13 | |
13 | |
|
|
14 | sub initialize { |
|
|
15 | my ($self, $setID) = @_; |
|
|
16 | my $r = $self->{r}; |
|
|
17 | if (defined $r->param('assignToAll')) { |
|
|
18 | $self->assignSetToAllUsers($setID); |
|
|
19 | } |
|
|
20 | } |
|
|
21 | |
| 14 | sub body { |
22 | sub body { |
| 15 | my ($self) = @_; |
23 | my ($self, $setID) = @_; |
| 16 | my $r = $self->{r}; |
24 | my $r = $self->{r}; |
| 17 | print CGI::start_form({method=>"post", action=>$r->uri}); |
25 | print CGI::start_form({method=>"post", action=>$r->uri}); |
|
|
26 | print $self->hidden_authen_fields; |
| 18 | print CGI::submit({name=>"assignToAll", value=>"Assign to All Users"}); |
27 | print CGI::submit({name=>"assignToAll", value=>"Assign to All Users"}); |
| 19 | print CGI::end_form(); |
28 | print CGI::end_form(); |
| 20 | |
29 | |
| 21 | return ""; |
30 | return ""; |
| 22 | } |
31 | } |
Parent Directory
| 
Revision Log
| 
Patch