--- loncom/interface/loncommon.pm 2016/06/15 17:20:44 1.1245 +++ loncom/interface/loncommon.pm 2016/06/20 15:35:42 1.1247 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1245 2016/06/15 17:20:44 raeburn Exp $ +# $Id: loncommon.pm,v 1.1247 2016/06/20 15:35:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5426,10 +5426,20 @@ sub CSTR_pageheader { $lastitem = $thisdisfn; } + my ($crsauthor,$title); + if (($env{'request.course.id'}) && + ($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) && + ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) { + $crsauthor = 1; + $title = &mt('Course Authoring Space'); + } else { + $title = &mt('Authoring Space'); + } + my $output = '