loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2006/04/05 22:39:55	version 1.6, 2006/05/15 17:45:46
Line 29	Line 29
package Apache::migrateuser;	package Apache::migrateuser;

use strict;	use strict;
	use LONCAPA;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::lonauth;	use Apache::lonauth;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::lonlocal;

sub goto_login {	sub goto_login {
my ($r) = @_;	my ($r) = @_;
Line 54 sub handler {	Line 56 sub handler {
my %data = &Apache::lonnet::tmpget($env{'form.token'});	my %data = &Apache::lonnet::tmpget($env{'form.token'});
my $delete = &Apache::lonnet::tmpdel($env{'form.token'});	my $delete = &Apache::lonnet::tmpdel($env{'form.token'});

	&Apache::lonlocal::get_language_handle($r);

if ($delete ne 'ok') {	if ($delete ne 'ok') {
return &goto_login($r);	return &goto_login($r);
}	}
Line 72 sub handler {	Line 76 sub handler {
$home,'/adm/roles');	$home,'/adm/roles');
return OK;	return OK;
}	}

	my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';


my $cookie=&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
$home,'noredirect');	$next_url);
$r->header_out('Set-cookie',"lonID=$cookie; path=/");	return OK;
&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
$cookie);
$env{'form.selectrole'}='1';
$env{'form.'.$data{'role'}}='1';
return &Apache::lonroles::handler($r);
}	}

1;	1;