--- loncom/imspackages/imsimport.pm 2017/11/05 20:04:30 1.48 +++ loncom/imspackages/imsimport.pm 2023/07/23 13:33:52 1.49 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: imsimport.pm,v 1.48 2017/11/05 20:04:30 raeburn Exp $ +# $Id: imsimport.pm,v 1.49 2023/07/23 13:33:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -773,13 +773,25 @@ END_JS } my $title = 'Upload IMS package to Authoring Space'; + my $crsauthor; + if ($env{'request.course.id'}) { + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + if (($udom eq $cdom) && ($uname eq $cnum)) { + $title = 'Upload IMS package to Course Authoring Space'; + $crsauthor = 1; + } + } + $r->print(&Apache::loncommon::start_page($title, $javascript)); - if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { - $r->print('

' - .&mt('Co-Author [_1]',$uname.':'.$udom) - .'

' - ); + unless ($crsauthor) { + if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { + $r->print('

' + .&mt('Co-Author [_1]',$uname.':'.$udom) + .'

' + ); + } } if ($env{'form.phase'} eq 'two') { my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport');