Return to lonroles.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.261, 2011/09/09 16:34:41 | version 1.262, 2011/10/21 16:28:49 |
---|---|
Line 601 ENDENTERKEY | Line 601 ENDENTERKEY |
if ($role =~ /^(au|ca|aa)$/) { | if ($role =~ /^(au|ca|aa)$/) { |
my $redirect_url = '/priv/'; | my $redirect_url = '/priv/'; |
if ($role eq 'au') { | if ($role eq 'au') { |
$redirect_url.=$env{'user.name'}; | $redirect_url.=$env{'user.domain'}.'/'.$env{'user.name'}; |
} else { | } else { |
$where =~ /\/(.*)$/; | $where =~ /\/(.*)$/; |
$redirect_url .= $1; | $redirect_url .= $1; |