loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.15, 2006/03/23 23:17:46	version 1.16, 2006/03/24 17:36:27
Line 304 Please choose the CMS used to create you	Line 304 Please choose the CMS used to create you
<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>
<option value='webct4'>WebCT 4</option>	<option value='webctce4'>WebCT 4 Campus Edition</option>
</select>	</select>
</font>	</font>
</td>	</td>
Line 411 sub display_two {	Line 411 sub display_two {
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'choose',\%includedres,\%includeditems);	$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'choose',\%includedres,\%includeditems);
if ($manifest_result eq 'ok') {	if ($manifest_result eq 'ok') {
foreach my $res (sort keys %resources) {	foreach my $res (sort keys %resources) {
if ($cms eq 'bb5' \|\| $cms eq 'bb6' \|\| $cms eq 'webct4') {	if ($cms eq 'bb5' \|\| $cms eq 'bb6' \|\| $cms eq 'webctce4') {
foreach my $area (keys %{$$cmsmap{$cms}}) {	foreach my $area (keys %{$$cmsmap{$cms}}) {
if ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {	if ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {
$count{$area} ++;	$count{$area} ++;