|
version 1.1023, 2011/10/24 22:02:41
|
version 1.1024, 2011/10/25 22:04:16
|
|
Line 4546 Returns: Path to the Construction Space
|
Line 4546 Returns: Path to the Construction Space
|
| |
|
| sub authorspace { |
sub authorspace { |
| my $caname = ''; |
my $caname = ''; |
| |
my $cadom = ''; |
| if ($env{'request.role'} =~ /^ca|^aa/) { |
if ($env{'request.role'} =~ /^ca|^aa/) { |
| (undef,$caname) = |
($cadom,$caname) = |
| ($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
| } else { |
} else { |
| $caname = $env{'user.name'}; |
$caname = $env{'user.name'}; |
| |
$cadom = $env{'user.domain'}; |
| } |
} |
| return '/priv/'.$caname.'/'; |
return '/priv/'.$cadom.'/'.$caname.'/'; |
| } |
} |
| |
|
| ############################################## |
############################################## |
|
Line 4610 sub CSTR_pageheader {
|
Line 4612 sub CSTR_pageheader {
|
| .'<b>'.&mt('Construction Space:').'</b> ' |
.'<b>'.&mt('Construction Space:').'</b> ' |
| .'<form name="dirs" method="post" action="'.$formaction |
.'<form name="dirs" method="post" action="'.$formaction |
| .'" target="_top">' #FIXME lonpubdir: target="_parent" |
.'" target="_top">' #FIXME lonpubdir: target="_parent" |
| .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef); |
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv/'.$udom,undef,undef); |
| |
|
| if ($lastitem) { |
if ($lastitem) { |
| $output .= |
$output .= |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface