--- loncom/interface/lonmenu.pm 2024/08/21 23:55:16 1.555 +++ loncom/interface/lonmenu.pm 2024/10/14 02:13:26 1.557 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.555 2024/08/21 23:55:16 raeburn Exp $ +# $Id: lonmenu.pm,v 1.557 2024/10/14 02:13:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1262,7 +1262,8 @@ s&7&2&prt.png&Print&printout[_1]&gocstr( s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory ENDMENUITEMS unless ($crsauthor_cstr) { - if ($env{'environment.canarchive'}) { + if (($env{'environment.canarchive'}) && + ($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) { $menuitems .= (< + ENDSERVERFORM } @@ -3111,7 +3114,7 @@ sub roles_selector { $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs, \%roledesc,$privref,$menucoll,$menuref); $form = - '
'."\n". + ''."\n". ' '."\n". ' '."\n". @@ -3121,7 +3124,8 @@ sub roles_selector { $form .= ' '."\n"; } - $form .= '
'."\n"; + $form .= ''."\n". + ''."\n"; foreach my $role (@roles_order) { my $include; if (defined($courseroles{$role})) { @@ -3610,7 +3614,7 @@ $donebutton $collapse - + $expand $alttxt$title