version 1.25, 2008/08/26 01:35:15
|
version 1.28, 2009/04/04 21:45:53
|
Line 296 sub display_one {
|
Line 296 sub display_one {
|
&Apache::lonhtmlcommon::topic_bar(1,&mt('Specify the Course Management system used to create the package')). |
&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.').' |
&mt('Choose the CMS used to create your IMS content package.').' |
<select name="source"> |
<select name="source"> |
<option value="-1" selected="true">Please select</option> |
<option value="-1" selected="selected">Please select</option> |
<option value="bb5">Blackboard 5</option> |
<option value="bb5">Blackboard 5</option> |
<option value="bb6">Blackboard 6</option> |
<option value="bb6">Blackboard 6</option> |
<option value="angel">ANGEL</option> |
<option value="angel">ANGEL</option> |
Line 459 sub display_two {
|
Line 459 sub display_two {
|
<input type="hidden" name="conditions" value="'.$conditions.'" /> |
<input type="hidden" name="conditions" value="'.$conditions.'" /> |
<input type="hidden" name="source" value="'.$cms.'" /> |
<input type="hidden" name="source" value="'.$cms.'" /> |
<input type="hidden" name="tempdir" value="'.$tempdir.'" /> |
<input type="hidden" name="tempdir" value="'.$tempdir.'" /> |
<input type="hidden" name="uploaduname" value="'.$uname.'"> |
<input type="hidden" name="uploaduname" value="'.$uname.'" /> |
<input type="hidden" name="filename" value="'.$fname.'"> |
<input type="hidden" name="filename" value="'.$fname.'" /> |
<input type="hidden" name="phase" value="four" />'."\n"); |
<input type="hidden" name="phase" value="four" />'."\n"); |
if ($count{board} == 0) { |
if ($count{board} == 0) { |
$r->print('<input type="hidden" name="board" value="" />'."\n"); |
$r->print('<input type="hidden" name="board" value="" />'."\n"); |
Line 722 sub handler {
|
Line 722 sub handler {
|
my $fn; |
my $fn; |
if ($env{'form.filename'}) { |
if ($env{'form.filename'}) { |
$fn=$env{'form.filename'}; |
$fn=$env{'form.filename'}; |
$fn=~s/^http\:\/\/[^\/]+\///; |
$fn=~s/^https?\:\/\/[^\/]+\///; |
$fn=~s/^\///; |
$fn=~s/^\///; |
$fn=~s/(\~|priv\/)($LONCAPA::username_re)//; |
$fn=~s/(\~|priv\/)($LONCAPA::username_re)//; |
$fn=~s/\/+/\//g; |
$fn=~s/\/+/\//g; |