--- loncom/imspackages/imsimportdocs.pm 2005/02/16 20:24:15 1.10 +++ loncom/imspackages/imsimportdocs.pm 2005/02/21 23:47:46 1.11 @@ -235,6 +235,7 @@ Please choose the CMS used to create you Blackboard 5 Blackboard 6 ANGEL + WebCT 4 @@ -336,7 +337,7 @@ sub display_two { $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'choose',\%includedres,\%includeditems); if ($manifest_result eq 'ok') { foreach my $res (sort keys %resources) { - if ($cms eq 'bb5' || $cms eq 'bb6') { + if ($cms eq 'bb5' || $cms eq 'bb6' || $cms eq 'webct4') { foreach my $area (keys %{$cmsmap{$cms}}) { if ($resources{$res}{type} eq $cmsmap{$cms}{$area}) { $count{$area} ++; @@ -616,7 +617,7 @@ sub display_three { my $copy_result = &Apache::imsprocessor::copy_resources('DOCS',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$chome,$destdir,$timenow,\%importareas); &Apache::imsprocessor::build_structure($cms,'DOCS',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,'',$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems); - + foreach my $item (@pages) { my $filename = $timenow.'/pages/'.$item; my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,'');