--- 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',
'',