loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

-version 1.48, 2017/11/05 20:04:30
+version 1.49, 2023/07/23 13:33:52
  Line 773  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'})) {
+     unless ($crsauthor) {
-         $r->print('<p><span class="LC_info">'
+         if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
-                   .&mt('Co-Author [_1]',$uname.':'.$udom)
+             $r->print('<p><span class="LC_info">'
-                   .'</span></p>'
+                       .&mt('Co-Author [_1]',$uname.':'.$udom)
-         );
+                       .'</span></p>'
+             );
+         }
      }
      if ($env{'form.phase'} eq 'two') {
          my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport');