--- loncom/imspackages/imsimport.pm 2008/08/26 01:35:15 1.25
+++ loncom/imspackages/imsimport.pm 2009/05/04 16:45:51 1.30
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: imsimport.pm,v 1.25 2008/08/26 01:35:15 www Exp $
+# $Id: imsimport.pm,v 1.30 2009/05/04 16:45:51 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -90,7 +90,7 @@ function createWin() {
newWindow = window.open("","CreateDir","HEIGHT=400,WIDTH=750,scrollbars=yes")
newWindow.document.open()
newWindow.document.write('$start_page')
- newWindow.document.write("\\n \\n")
+ newWindow.document.write("\\n \\n")
newWindow.document.write("
\\n")
newWindow.document.write(" \\n")
newWindow.document.write("$lt{'loca'} $fullpath $lt{'newd'} \\n")
@@ -296,7 +296,7 @@ sub display_one {
&Apache::lonhtmlcommon::topic_bar(1,&mt('Specify the Course Management system used to create the package')).
&mt('Choose the CMS used to create your IMS content package.').'
- Please select
+ Please select
Blackboard 5
Blackboard 6
ANGEL
@@ -459,8 +459,8 @@ sub display_two {
-
-
+
+
'."\n");
if ($count{board} == 0) {
$r->print(' '."\n");
@@ -722,7 +722,7 @@ sub handler {
my $fn;
if ($env{'form.filename'}) {
$fn=$env{'form.filename'};
- $fn=~s/^http\:\/\/[^\/]+\///;
+ $fn=~s/^https?\:\/\/[^\/]+\///;
$fn=~s/^\///;
$fn=~s/(\~|priv\/)($LONCAPA::username_re)//;
$fn=~s/\/+/\//g;
@@ -762,8 +762,10 @@ sub handler {
$r->print(&Apache::loncommon::start_page($title, $javascript));
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
- $r->print(''.&mt('Co-Author').': '.$uname.
- &mt(' at ').$udom.' ');
+ $r->print(''
+ .&mt('Co-Author [_1]:[_2]',$uname,$udom)
+ .' '
+ );
}
if ($env{'form.phase'} eq 'two') {
my $flag = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'imsimport');