version 1.48, 2017/11/05 20:04:30
|
version 1.49, 2023/07/23 13:33:52
|
Line 773 END_JS
|
Line 773 END_JS
|
} |
} |
|
|
my $title = 'Upload IMS package to Authoring Space'; |
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)); |
$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') { |
if ($env{'form.phase'} eq 'two') { |
my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport'); |
my $flag = &Apache::lonupload::phasetwo($r,$fn,'imsimport'); |