--- loncom/imspackages/imsimport.pm 2008/08/25 13:03:40 1.24 +++ loncom/imspackages/imsimport.pm 2009/05/04 16:45:51 1.30 @@ -1,3 +1,7 @@ +# The LearningOnline Network with CAPA +# +# $Id: imsimport.pm,v 1.30 2009/05/04 16:45:51 bisitz Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -86,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[Author Header]\\n") + newWindow.document.write("\\n[Author Header]\\n") newWindow.document.write("\\n") newWindow.document.write("\\n") newWindow.document.write("\\n") @@ -292,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.').'   - - + + '."\n"); if ($count{board} == 0) { $r->print(''."\n"); @@ -718,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; @@ -758,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');
  

$lt{'loca'} $fullpath

$lt{'newd'}