--- loncom/interface/lonmenu.pm 2024/04/18 17:53:15 1.548 +++ loncom/interface/lonmenu.pm 2024/04/19 03:48:22 1.549 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.548 2024/04/18 17:53:15 raeburn Exp $ +# $Id: lonmenu.pm,v 1.549 2024/04/19 03:48:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -911,6 +911,7 @@ sub innerregister { $ltiscope,$ltiuri,$showncrumbsref) = @_; my $const_space = ($env{'request.state'} eq 'construct'); my $is_const_dir = 0; + my $in_daxe = 0; if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } @@ -1309,6 +1310,23 @@ ENDMENUITEMS } } # +# "Exit Daxe" in Functions menu when using Daxe +# + if ((($env{'form.editmode'} eq 'daxe') && + ($thisdisfn=~/\.(xml|html|htm|xhtml|xhtm)$/)) || + (($env{'form.problemmode'} eq 'daxe') && + ($thisdisfn=~/$LONCAPA::assess_re/))) { + my %editors = &Apache::loncommon::permitted_editors(); + if ($editors{'daxe'}) { + my $privfile = &Apache::loncommon::escape_single("/priv/$udom/$uname/$thisdisfn"); + $in_daxe = 1; + $menuitems .= (<