|
version 1.1418, 2023/11/17 17:02:20
|
version 1.1419, 2023/11/18 21:12:45
|
|
Line 6461 sub CSTR_pageheader {
|
Line 6461 sub CSTR_pageheader {
|
| return $output; |
return $output; |
| } |
} |
| |
|
| |
############################################## |
| |
=pod |
| |
|
| |
=item * &nocodemirror() |
| |
|
| |
Input: None |
| |
|
| |
Returns: 1 if CodeMirror is deactivated based on |
| |
user's preference, or domain default, |
| |
if user indicated use of default. |
| |
|
| |
=cut |
| |
|
| sub nocodemirror { |
sub nocodemirror { |
| my $nocodem = $env{'environment.nocodemirror'}; |
my $nocodem = $env{'environment.nocodemirror'}; |
| unless ($nocodem) { |
unless ($nocodem) { |
|
Line 6475 sub nocodemirror {
|
Line 6488 sub nocodemirror {
|
| return; |
return; |
| } |
} |
| |
|
| |
############################################## |
| |
=pod |
| |
|
| |
=item * &permitted_editors() |
| |
|
| |
Input: None |
| |
|
| |
Returns: %editors hash in which keys are editors |
| |
permitted in current Authoring Space. |
| |
Value for each key is 1. Possible keys |
| |
are: edit, xml, and daxe. If no specific |
| |
set of editors has been set for the Author |
| |
who owns the Authoring Space, then the |
| |
domain default will be used. If no domain |
| |
default has been set, then the keys will be |
| |
edit and xml. |
| |
|
| |
=cut |
| |
|
| sub permitted_editors { |
sub permitted_editors { |
| 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\./}) { |
![[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