--- loncom/interface/lonmenu.pm 2024/05/01 14:42:54 1.550 +++ 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.550 2024/05/01 14:42:54 raeburn Exp $ +# $Id: lonmenu.pm,v 1.557 2024/10/14 02:13:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1261,6 +1261,14 @@ s&7&4&docs-22x22.png&Edit Metadata&defau s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','$esc_currdir')&Print contents of directory 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'}) && + ($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) { + $menuitems .= (< + ENDSERVERFORM } @@ -3103,7 +3114,7 @@ sub roles_selector { $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs, \%roledesc,$privref,$menucoll,$menuref); $form = - '
'."\n". + ''."\n". ' '."\n". ' '."\n". @@ -3113,7 +3124,8 @@ sub roles_selector { $form .= ' '."\n"; } - $form .= '
'."\n"; + $form .= ''."\n". + ''."\n"; foreach my $role (@roles_order) { my $include; if (defined($courseroles{$role})) { @@ -3602,7 +3614,7 @@ $donebutton $collapse - + $expand $alttxt$title