|
version 1.235, 2008/03/10 23:47:35
|
version 1.237, 2008/06/04 23:00:49
|
|
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)$/); |
|
Line 1473 sub roles_selector {
|
Line 1473 sub roles_selector {
|
| $role_selector = &jump_to_role($cdom,$cnum); |
$role_selector = &jump_to_role($cdom,$cnum); |
| $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
| <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
| $role_selector .= '<option value="">'.&mt('Switch course role to..').'</option>'; |
$role_selector .= '<option value="">'.&mt('Switch course role to...').'</option>'; |
| foreach my $role (@roles_order) { |
foreach my $role (@roles_order) { |
| if (defined($courseroles{$role})) { |
if (defined($courseroles{$role})) { |
| $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface