version 1.1421, 2023/11/19 21:28:17
|
version 1.1422, 2023/11/26 20:47:16
|
Line 6590 sub nocodemirror {
|
Line 6590 sub nocodemirror {
|
|
|
=item * &permitted_editors() |
=item * &permitted_editors() |
|
|
Input: None |
Input: $uri (optional) |
|
|
Returns: %editors hash in which keys are editors |
Returns: %editors hash in which keys are editors |
permitted in current Authoring Space. |
permitted in current Authoring Space. |
Line 6605 Returns: %editors hash in which keys are
|
Line 6605 Returns: %editors hash in which keys are
|
=cut |
=cut |
|
|
sub permitted_editors { |
sub permitted_editors { |
|
my ($uri) = @_; |
my ($is_author,$is_coauthor,$auname,$audom,%editors); |
my ($is_author,$is_coauthor,$auname,$audom,%editors); |
if ($env{'request.role'} =~ m{^au\./}) { |
if ($env{'request.role'} =~ m{^au\./}) { |
$is_author = 1; |
$is_author = 1; |
Line 6623 sub permitted_editors {
|
Line 6624 sub permitted_editors {
|
($audom,$auname) = ($1,$2); |
($audom,$auname) = ($1,$2); |
} elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) { |
} elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) { |
($audom,$auname) = ($1,$2); |
($audom,$auname) = ($1,$2); |
|
} elsif (($uri eq '/daxesave') && |
|
($env{'form.path'} =~ m{^/daxeopen/priv/($match_domain)/($match_username)/})) { |
|
($audom,$auname) = ($1,$2); |
} |
} |
if (($audom ne '') && ($auname ne '')) { |
if (($audom ne '') && ($auname ne '')) { |
if (($env{'user.domain'} eq $audom) && |
if (($env{'user.domain'} eq $audom) && |