loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.235, 2008/03/10 23:47:35	version 1.236, 2008/05/30 20:24:25
Line 434 sub innerregister {	Line 434 sub innerregister {
my $action = "go('/priv/".$env{'user.name'}."');";	my $action = "go('/priv/".$env{'user.name'}."');";
my $cadom = $env{'request.role.domain'};	my $cadom = $env{'request.role.domain'};
my $caname = $env{'user.name'};	my $caname = $env{'user.name'};
my $desc = "Enter my resource construction space";	my $desc = "Enter my construction space";
# Set defaults for co-authors	# Set defaults for co-authors
if ($env{'request.role'} =~ /^ca/) {	if ($env{'request.role'} =~ /^ca/) {
($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);	($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);