--- loncom/interface/loncommon.pm	2023/11/18 21:50:06	1.1420
+++ 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.1420 2023/11/18 21:50:06 raeburn Exp $
+# $Id: loncommon.pm,v 1.1422 2023/11/26 20:47:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2498,7 +2498,12 @@ sub iframe_wrapper_resizejs {
             var offset = $offset;
             var height = 0;
             var hdrtop = 0;
-            if (\$('div.LC_head_subbox:first').length) {
+            if (\$('div.LC_menus_content:first').length) {
+                if (\$('div.LC_menus_content:first').hasClass ("shown")) {
+                    header = \$('div.LC_menus_content:first');
+                    offset = 9;
+                }
+            } else if (\$('div.LC_head_subbox:first').length) {
                 header = \$('div.LC_head_subbox:first');
                 offset = 9;
             } else {
@@ -6585,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.
@@ -6600,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;
@@ -6618,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) &&
@@ -6878,10 +6887,21 @@ sub bodytag {
         $bodytag .= Apache::lonhtmlcommon::scripttag(
             Apache::lonmenu::utilityfunctions($httphost), 'start');
 
+        if ($args->{'collapsible_header'}) {
+            my $alttext = &mt('menu state: collapsed');
+            my $tooltip = &mt('display standard menus');
+            $bodytag .= <<"END";
+<div id="LC_expandingContainer" style="display:inline;">
+<div id="LC_collapsible" class="LC_collapse_trigger" style="position: absolute;top: -5px;left: 0px; z-index:101; display:inline;">
+<a href="#" style="text-decoration:none;"><img class="LC_collapsible_indicator" alt="$alttext" title="$tooltip" src="/res/adm/pages/collapsed.png" style="border:0;margin:0;padding:0;max-width:100%;height:auto" /></a></div>
+<div class="LC_menus_content hidden">
+END
+        }
         unless ($args->{'no_primary_menu'}) {
             my ($left,$right) = Apache::lonmenu::primary_menu($crstype,$ltimenu,$menucoll,$menuref,
                                                               $args->{'links_disabled'},
-                                                              $args->{'links_target'});
+                                                              $args->{'links_target'},
+                                                              $args->{'collapsible_header'});
 
             if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
                 if ($dc_info) {
@@ -6940,7 +6960,10 @@ sub bodytag {
             $bodytag .= '<hr style="clear:both" />';
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
         }
-
+        if ($args->{'collapsible_header'}) {
+            $bodytag .= '<div id="LC_collapsible_separator"></div>'.
+                        '</div></div>';
+        }
         return $bodytag;
 }
 
@@ -7133,6 +7156,14 @@ form, .inline {
   display: inline;
 }
 
+.LC_menus_content.shown{
+  display: inline;
+}
+
+.LC_menus_content.hidden {
+  display: none;
+}
+
 .LC_right {
   text-align:right;
 }
@@ -7153,6 +7184,12 @@ form, .inline {
   width:400px;
 }
 
+#LC_collapsible_separator {
+    border: 1px solid black;
+    width: 99.9%;
+    height: 0px;
+}
+
 .LC_iframecontainer {
     width: 98%;
     margin: 0;