| … | |
… | |
| 242 | my $self = shift; |
242 | my $self = shift; |
| 243 | my %args = %{ shift() }; |
243 | my %args = %{ shift() }; |
| 244 | my $tail = shift; |
244 | my $tail = shift; |
| 245 | my @links = @_; |
245 | my @links = @_; |
| 246 | my $auth = $self->url_authen_args; |
246 | my $auth = $self->url_authen_args; |
|
|
247 | my $ce = $self->{courseEnvironment}; |
| 247 | my @result; |
248 | my @result; |
| 248 | while (@links) { |
249 | while (@links) { |
| 249 | my $name = shift @links; |
250 | my $name = shift @links; |
| 250 | my $url = shift @links; |
251 | my $url = shift @links; |
| 251 | my $img = shift @links; |
252 | my $img = shift @links; |
| … | |
… | |
| 403 | my $user = $r->param("user"); |
404 | my $user = $r->param("user"); |
| 404 | my $eUser = $r->param("effectiveUser"); |
405 | my $eUser = $r->param("effectiveUser"); |
| 405 | my $key = $r->param("key"); |
406 | my $key = $r->param("key"); |
| 406 | return "" unless $key; |
407 | return "" unless $key; |
| 407 | my $exitURL = $r->uri() . "?user=$user&key=$key"; |
408 | my $exitURL = $r->uri() . "?user=$user&key=$key"; |
| 408 | print CGI::small("Logged in as:", CGI::br(), "$user"); |
409 | print CGI::small("User:", "$user"); |
| 409 | if ($user ne $eUser) { |
410 | if ($user ne $eUser) { |
| 410 | print CGI::br(), CGI::font({-color=>'red'}, |
411 | print CGI::br(), CGI::font({-color=>'red'}, |
| 411 | CGI::small("Acting as:", CGI::br(), "$eUser") |
412 | CGI::small("Acting as:", "$eUser") |
| 412 | ), |
413 | ), |
| 413 | CGI::br(), CGI::a({-href=>$exitURL}, |
414 | CGI::br(), CGI::a({-href=>$exitURL}, |
| 414 | CGI::small("Stop Acting") |
415 | CGI::small("Stop Acting") |
| 415 | ); |
416 | ); |
| 416 | } |
417 | } |
Parent Directory
| 
Revision Log
| 
Patch