--- loncom/interface/loncommon.pm 2022/11/16 14:24:35 1.1396 +++ loncom/interface/loncommon.pm 2022/11/24 00:49:48 1.1398 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1396 2022/11/16 14:24:35 raeburn Exp $ +# $Id: loncommon.pm,v 1.1398 2022/11/24 00:49:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4283,6 +4283,8 @@ sub syllabuswrapper { return qq{$linktext}; } +# ----------------------------------------------------------------------------- + sub aboutme_on { my ($uname,$udom)=@_; unless ($uname) { $uname=$env{'user.name'}; } @@ -4307,8 +4309,6 @@ sub devalidate_aboutme_cache { &Apache::lonnet::devalidate_cache_new('aboutme',$id); } -# ----------------------------------------------------------------------------- - sub track_student_link { my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_; my $link ="/adm/trackstudent?"; @@ -16445,7 +16445,7 @@ sub commit_studentrole { } $oldsecurl = $uurl; $expire_role_result = - &Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','',$context); + &Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','','',$context); if ($env{'request.course.sec'} ne '') { if ($expire_role_result eq 'refused') { my @roles = ('st');