| … | |
… | |
| 186 | return; |
186 | return; |
| 187 | }; |
187 | }; |
| 188 | defined($r->param('edit-class-data')) && do { |
188 | defined($r->param('edit-class-data')) && do { |
| 189 | my $root = $ce->{webworkURLs}->{root}; |
189 | my $root = $ce->{webworkURLs}->{root}; |
| 190 | my $courseName = $ce->{courseName}; |
190 | my $courseName = $ce->{courseName}; |
| 191 | my @setList = $r->param("setList"); |
191 | #my @setList = $r->param("setList"); |
| 192 | # can only become the first user listed. |
192 | ## can only become the first user listed. |
| 193 | my $setName = shift @setList; |
193 | #my $setName = shift @setList; |
|
|
194 | # ...not sure what those are about |
|
|
195 | # get list of users selected |
|
|
196 | my @userIDs = $r->param("classList"); |
| 194 | my $uri="$root/$courseName/instructor/users/?".$self->url_authen_args; |
197 | my $uri="$root/$courseName/instructor/users/?"; |
|
|
198 | $uri .= join("&", map { "visible_users=$_" } @userIDs); |
|
|
199 | $uri .= "&editMode=1", |
|
|
200 | $uri .= "&" . $self->url_authen_args; |
| 195 | $r->header_out(Location => $uri); |
201 | $r->header_out(Location => $uri); |
| 196 | $self->{noContent} = 1; # forces redirect |
202 | $self->{noContent} = 1; # forces redirect |
| 197 | return; |
203 | return; |
| 198 | }; |
204 | }; |
| 199 | defined($r->param('add-students')) && do { |
205 | defined($r->param('add-students')) && do { |
Parent Directory
| 
Revision Log
| 
Patch