--- loncom/interface/lonmenu.pm 2021/11/15 23:29:20 1.512 +++ 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.512 2021/11/15 23:29:20 raeburn Exp $ +# $Id: lonmenu.pm,v 1.514 2021/11/30 15:55:37 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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', '',