version 1.22, 2009/05/04 16:45:51
|
version 1.24, 2009/11/06 17:16:53
|
Line 207 sub display_one {
|
Line 207 sub display_one {
|
my ($r) = @_; |
my ($r) = @_; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folder']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folder']); |
|
|
$r->print(<<ENDBLOCK); |
$r->print( |
<form action="/adm/imsimportdocs" method="post" enctype="multipart/form-data" name="pickcms"> |
'<form action="/adm/imsimportdocs" method="post"' |
<table border='0' bgcolor='#F6F6F6' cellspacing='0' cellpadding ='0' width='100%'> |
.' enctype="multipart/form-data" name="pickcms">' |
<tr> |
.&Apache::lonhtmlcommon::topic_bar( |
<td colspan='2'> |
1,&mt('Specify the Course Management system used to create the package')) |
<table border='0' cellspacing='0' cellpadding='0'> |
.&mt('Please choose the CMS used to create your IMS content package:').' ' |
<tr> |
.'<select name="source">' |
<td colspan='2' align='left'> |
.'<option value="-1" selected="selected">'.&mt('Please select').'</option>' |
</td> |
.'<option value="bb5">Blackboard 5</option>' |
</tr> |
.'<option value="bb6">Blackboard 6</option>' |
<tr bgcolor='#CCCCFF'> |
.'<option value="angel5">ANGEL 5.5</option>' |
<td valign="middle"><img src="/res/adm/pages/bl_step1.gif" alt="1" /> |
.'<option value="webctce4">WebCT 4 Campus Edition</option>' |
</td> |
.'</select>' |
<td width='100%' align='left'> |
); |
<font face='arial,helvetica,sans-serif'><b>Specify the Course Management system used to create the package.</b> |
$r->print( |
</font> |
&Apache::lonhtmlcommon::topic_bar( |
</td> |
2,&mt('Locate the IMS content package you wish to upload')) |
</tr> |
.'<input type="hidden" name="folder" value="'.$env{'form.folder'}.'" />' |
<tr> |
.'<input type="hidden" name="phase" value="two" />' |
<td colspan='2'> </td> |
.&mt('File:') |
</tr> |
.' <input type="file" name="uploadname" size="40" />' |
<tr> |
); |
<td> </td> |
$r->print( |
<td> |
'<hr />' |
<font face='Arial,Helvetica,sans-serif'> |
.'<p>' |
Please choose the CMS used to create your IMS content package. |
.'<input type="button" name="exitpage" value="'.&mt('Cancel').'"' |
<select name="source"> |
.' onclick="javascript:self.close()" />' |
<option value='-1' selected="true">Please select</option> |
.' ' |
<option value='bb5'>Blackboard 5</option> |
.'<input type="button" name="nextpage" value="'.&mt('Upload IMS package').'"' |
<option value='bb6'>Blackboard 6</option> |
.' onclick="javascript:nextPage()" />' |
<option value='angel'>ANGEL</option> |
.'</p>' |
<option value='webctce4'>WebCT 4 Campus Edition</option> |
); |
</select> |
|
</font> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> </td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> </td> |
|
</tr> |
|
<tr bgcolor='#CCCCFF'> |
|
<td valign="middle"><img src="/res/adm/pages/bl_step2.gif" alt="2" /> |
|
</td> |
|
<td width='100%' align='left'> |
|
<font face='arial,helvetica,sans-serif'><b>Locate the IMS content package you wish to upload.</b> |
|
</font> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> </td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> |
|
<input type="hidden" name="folder" value="$env{'form.folder'}" /> |
|
<input type="hidden" name="phase" value="two" /> |
|
<input type="file" name="uploadname" size="40" /> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> </td> |
|
</tr> |
|
<tr> |
|
<td> </td> |
|
<td><font face='arial,helvetica,sans-serif'>If you have selected the CMS, and located the IMS package, you should click the 'Upload IMS package' button to upload the file to the server.</font></td> |
|
</tr> |
|
<tr> |
|
<td colspan='2'> </td> |
|
</tr> |
|
<tr |
|
<td colspan='2'> |
|
<table border='0' cellspacing='0' cellpadding='0' width="100%"> |
|
<tr> |
|
<td align='left'> |
|
<input type="button" name="exitpage" value="Exit now" onClick="javascript:self.close()" /> |
|
</td> |
|
<td align='right'> |
|
<input type="button" name="nextpage" value="Upload IMS package" onClick="javascript:nextPage()" /> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</form> |
|
ENDBLOCK |
|
} |
} |
|
|
|
|
Line 346 sub display_two {
|
Line 288 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 442 ENDBLOCK
|
Line 384 ENDBLOCK
|
<td valign="middle"><img src="/res/adm/pages/bl_step4.gif" alt="4" /> |
<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> |
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
Line 481 ENDBLOCK
|
Line 423 ENDBLOCK
|
<table border='0' cellspacing='0' cellpadding='0' width="100%"> |
<table border='0' cellspacing='0' cellpadding='0' width="100%"> |
<tr> |
<tr> |
<td align='left'> |
<td align='left'> |
<input type='button' name='exitpage' value='Exit now' onClick="javascript:self.close()" /> |
<input type='button' name='exitpage' value='Cancel' onClick="javascript:self.close()" /> |
</td> |
</td> |
<td align='right'> |
<td align='right'> |
<input type="button" name="nextpage" value="Complete Import" onClick="javascript:nextPage($counter)" /> |
<input type="button" name="nextpage" value="Complete Import" onClick="javascript:nextPage($counter)" /> |
Line 496 ENDBLOCK
|
Line 438 ENDBLOCK
|
</table> |
</table> |
ENDDOCUMENT |
ENDDOCUMENT |
} else { |
} else { |
$r->print("Unpacking of your IMS package failed because an IMS manifest file was not located in the package\n"); |
$r->print( |
|
'<p class="LC_warning">' |
|
.&mt('Unpacking of your IMS package failed because an IMS manifest file was not located in the package.') |
|
.'</p>' |
|
); |
} |
} |
} else { |
} else { |
$r->print("Processing of your IMS package failed because the file you uploaded could not be unzipped\n"); |
$r->print( |
|
'<p class="LC_warning">' |
|
.&mt('Processing of your IMS package failed because the file you' |
|
.' uploaded could not be unzipped.') |
|
.'</p>' |
|
); |
} |
} |
} |
} |
|
|
Line 553 sub display_three {
|
Line 504 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; |
} |
} |