--- loncom/interface/lonmenu.pm 2021/11/15 22:36:37 1.511 +++ loncom/interface/lonmenu.pm 2021/11/30 15:55:37 1.514 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.511 2021/11/15 22:36:37 raeburn Exp $ +# $Id: lonmenu.pm,v 1.514 2021/11/30 15:55:37 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -637,7 +637,7 @@ sub secondary_menu { $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef, $listclass,$linkattr); } elsif ($link ne '#') { - $menu .= ($listclass?'
  • ':''). + $menu .= ($listclass?'
  • ':'
  • '). ''. &mt($title).'
  • '; } @@ -811,7 +811,7 @@ sub build_submenu { } } - $menu .= '
  • '; $menu .= '' . $title . ''; @@ -1348,11 +1348,12 @@ sub prepare_functions { my $editbutton = ''; my $viewsrcbutton = ''; + my $clientip = &Apache::lonnet::get_requestor_ip(); # # Determine whether or not to display 'Edit' or 'View Source' icon/button # if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { - my $blocked = &Apache::loncommon::blocking_status('about',$2,$1); + my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$2,$1); my $file=&Apache::lonnet::declutter($env{'request.filename'}); ($cfile,$home,$switchserver,$forceedit,$forceview) = &Apache::lonnet::can_edit_resource($file,$cnum,$cdom, @@ -1470,7 +1471,7 @@ sub prepare_functions { if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { my ($sdom,$sname) = ($1,$2); unless (&Apache::lonnet::is_course($sdom,$sname)) { - my $blocked = &Apache::loncommon::blocking_status('about',$sname,$sdom); + my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$sname,$sdom); unless ($blocked) { &switch('','',6,4,'mail-message-new-22x22.png','Message to user', '',