--- loncom/interface/loncommon.pm 2022/11/16 14:24:35 1.1396 +++ loncom/interface/loncommon.pm 2022/11/17 13:21:09 1.1397 @@ -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.1397 2022/11/17 13:21:09 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?";