Return to lonauth.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.85, 2006/10/10 21:57:12 | version 1.86, 2006/10/12 18:18:01 |
---|---|
Line 50 sub success { | Line 50 sub success { |
my $cookie = | my $cookie = |
&Apache::loncommon::init_user_environment($r, $username, $domain, | &Apache::loncommon::init_user_environment($r, $username, $domain, |
$authhost, $form, | $authhost, $form, |
$extra_env); | {'extra_env' => $extra_env,}); |
my $public=($username eq 'public' && $domain eq 'public'); | my $public=($username eq 'public' && $domain eq 'public'); |