version 1.18, 2006/05/30 12:45:50
|
version 1.23, 2009/08/17 03:52:09
|
Line 34 use Apache::loncommon;
|
Line 34 use Apache::loncommon;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::imsprocessor; |
use Apache::imsprocessor; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
|
use LONCAPA::map(); |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
|
Line 217 sub display_one {
|
Line 218 sub display_one {
|
</td> |
</td> |
</tr> |
</tr> |
<tr bgcolor='#CCCCFF'> |
<tr bgcolor='#CCCCFF'> |
<td valign='middle'><img src='/res/adm/pages/bl_step1.gif'> |
<td valign="middle"><img src="/res/adm/pages/bl_step1.gif" alt="1" /> |
</td> |
</td> |
<td width='100%' align='left'> |
<td width='100%' align='left'> |
<font face='arial,helvetica,sans-serif'><b>Specify the Course Management system used to create the package.</b> |
<font face='arial,helvetica,sans-serif'><b>Specify the Course Management system used to create the package.</b> |
Line 236 Please choose the CMS used to create you
|
Line 237 Please choose the CMS used to create you
|
<option value='-1' selected="true">Please select</option> |
<option value='-1' selected="true">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='angel5'>ANGEL 5.5</option> |
<option value='webctce4'>WebCT 4 Campus Edition</option> |
<option value='webctce4'>WebCT 4 Campus Edition</option> |
</select> |
</select> |
</font> |
</font> |
Line 249 Please choose the CMS used to create you
|
Line 250 Please choose the CMS used to create you
|
<td colspan='2'> </td> |
<td colspan='2'> </td> |
</tr> |
</tr> |
<tr bgcolor='#CCCCFF'> |
<tr bgcolor='#CCCCFF'> |
<td valign='middle'><img src='/res/adm/pages/bl_step2.gif'> |
<td valign="middle"><img src="/res/adm/pages/bl_step2.gif" alt="2" /> |
</td> |
</td> |
<td width='100%' align='left'> |
<td width='100%' align='left'> |
<font face='arial,helvetica,sans-serif'><b>Locate the IMS content package you wish to upload.</b> |
<font face='arial,helvetica,sans-serif'><b>Locate the IMS content package you wish to upload.</b> |
Line 345 sub display_two {
|
Line 346 sub display_two {
|
$count{$area} ++; |
$count{$area} ++; |
} |
} |
} |
} |
} elsif ($cms eq 'angel') { |
} elsif ($cms eq 'angel5') { |
foreach my $area (keys %{$cmsmap{$cms}}) { |
foreach my $area (keys %{$cmsmap{$cms}}) { |
if ($area eq 'doc') { |
if ($area eq 'doc') { |
if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) { |
if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) { |
Line 368 sub display_two {
|
Line 369 sub display_two {
|
</td> |
</td> |
</tr> |
</tr> |
<tr bgcolor='#CCCCFF'> |
<tr bgcolor='#CCCCFF'> |
<td valign='middle'><img src='/res/adm/pages/bl_step3.gif'> |
<td valign="middle"><img src="/res/adm/pages/bl_step3.gif" alt="3" /> |
</td> |
</td> |
<td width='100%' align='left'> |
<td width='100%' align='left'> |
<font face='arial,helvetica,sans-serif'><b>Choose which content types you wish to import</b></font> |
<font face='arial,helvetica,sans-serif'><b>Choose which content types you wish to import</b></font> |
Line 438 ENDBLOCK
|
Line 439 ENDBLOCK
|
<td colspan='2'> <br /><br /></td> |
<td colspan='2'> <br /><br /></td> |
</tr> |
</tr> |
<tr bgcolor='#CCCCFF'> |
<tr bgcolor='#CCCCFF'> |
<td valign='middle'><img src='/res/adm/pages/bl_step4.gif'> |
<td valign="middle"><img src="/res/adm/pages/bl_step4.gif" alt="4" /> |
</td> |
</td> |
<td width='100%' align='left'> |
<td width='100%' align='left'> |
<font face='arial,helvetica,sans-serif'><b>Choose display options for listing of contents of top level of package.</b></font> |
<font face='arial,helvetica,sans-serif'><b>Choose display options for listing of contents of top level of package.</b></font> |
Line 552 sub display_three {
|
Line 553 sub display_three {
|
|
|
foreach my $area (@{$areas}) { |
foreach my $area (@{$areas}) { |
if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) { |
if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) { |
if ($cms eq 'angel' && $area eq 'doc') { |
if ($cms eq 'angel5' && $area eq 'doc') { |
foreach (@{$cmsmap{$cms}{$area}}) { |
foreach (@{$cmsmap{$cms}{$area}}) { |
$importareas{$_} = 1; |
$importareas{$_} = 1; |
} |
} |
Line 640 sub display_three {
|
Line 641 sub display_three {
|
for (my $i=0; $i<@topurls; $i++) { |
for (my $i=0; $i<@topurls; $i++) { |
my $url = &unescape($topurls[$i]); |
my $url = &unescape($topurls[$i]); |
my $name = &unescape($topnames[$i]); |
my $name = &unescape($topnames[$i]); |
push @imports, $name, $url; |
push(@imports, [$name, $url]); |
} |
} |
} elsif ($toplevel eq 'newfolder') { |
} elsif ($toplevel eq 'newfolder') { |
my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence"); |
my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence"); |
my $name = &unescape("$env{'form.foldername'}"); |
my $name = &unescape("$env{'form.foldername'}"); |
push @imports, $name, $url; |
push(@imports, [$name, $url]); |
} |
} |
my $errtext=''; |
my $errtext=''; |
my $fatal=0; |
my $fatal=0; |
($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence'); |
($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence'); |
if ($#Apache::lonratedt::order<1) { |
if ($#LONCAPA::map::order<1) { |
$Apache::lonratedt::order[0]=1; |
$LONCAPA::map::order[0]=1; |
$Apache::lonratedt::resources[1]=''; |
$LONCAPA::map::resources[1]=''; |
} |
} |
my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports); |
my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports); |
if ($fatal) { |
if ($fatal) { |
print STDERR "Fatal error during group_import\n"; |
&Apache::lonnet::logthis("Fatal error during group_import."); |
} |
} |
} |
} |
if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) { |
if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) { |
Line 672 sub display_three {
|
Line 673 sub display_three {
|
</td> |
</td> |
</tr> |
</tr> |
<tr bgcolor='#CCCCFF'> |
<tr bgcolor='#CCCCFF'> |
<td valign='middle'><img src='/res/adm/pages/bl_step5.gif'> |
<td valign="middle"><img src="/res/adm/pages/bl_step5.gif" alt="5" /> |
</td> |
</td> |
<td width='100%' align='left'> |
<td width='100%' align='left'> |
<font face='arial,helvetica,sans-serif'><b>Your import is complete</b></font> |
<font face='arial,helvetica,sans-serif'><b>Your import is complete</b></font> |