--- loncom/interface/loncommon.pm 2023/11/19 21:28:17 1.1421 +++ loncom/interface/loncommon.pm 2023/11/26 20:47:16 1.1422 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1421 2023/11/19 21:28:17 raeburn Exp $ +# $Id: loncommon.pm,v 1.1422 2023/11/26 20:47:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6590,7 +6590,7 @@ sub nocodemirror { =item * &permitted_editors() -Input: None +Input: $uri (optional) Returns: %editors hash in which keys are editors permitted in current Authoring Space. @@ -6605,6 +6605,7 @@ Returns: %editors hash in which keys are =cut sub permitted_editors { + my ($uri) = @_; my ($is_author,$is_coauthor,$auname,$audom,%editors); if ($env{'request.role'} =~ m{^au\./}) { $is_author = 1; @@ -6623,6 +6624,9 @@ sub permitted_editors { ($audom,$auname) = ($1,$2); } elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) { ($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 (($env{'user.domain'} eq $audom) &&