version 1.831, 2009/05/28 15:19:54
|
version 1.832, 2009/05/28 16:54:29
|
Line 4183 sub designparm {
|
Line 4183 sub designparm {
|
############################################## |
############################################## |
=pod |
=pod |
|
|
|
=item * &authorspace() |
|
|
|
Inputs: ./. |
|
|
|
Returns: Path to the Construction Space of the current user's |
|
accessed author space |
|
The author space will be that of the current user |
|
when accessing the own author space |
|
and that of the co-author/assistent co-author |
|
when accessing the co-author's/assistent co-author's |
|
space |
|
|
|
=cut |
|
|
|
sub authorspace { |
|
my $caname = ''; |
|
if ($env{'request.role'} =~ /^ca|^aa/) { |
|
(undef,$caname) = |
|
($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
|
} else { |
|
$caname = $env{'user.name'}; |
|
} |
|
return '/priv/'.$caname.'/'; |
|
} |
|
|
|
############################################## |
|
=pod |
|
|
=item * &head_subbox() |
=item * &head_subbox() |
|
|
Inputs: $content (contains HTML code with page functions, etc.) |
Inputs: $content (contains HTML code with page functions, etc.) |