--- loncom/imspackages/imsimportdocs.pm	2005/02/14 22:46:12	1.9
+++ loncom/imspackages/imsimportdocs.pm	2005/02/21 23:47:46	1.11
@@ -235,6 +235,7 @@ Please choose the CMS used to create you
          <option value='bb5'>Blackboard 5
          <option value='bb6'>Blackboard 6
          <option value='angel'>ANGEL
+         <option value='webct4'>WebCT 4
         </select>
         </font>
        </td>
@@ -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} ++;
@@ -578,16 +579,6 @@ sub display_three {
     foreach my $itm (sort keys %includeditems) {
         &Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm);
     }
-    foreach (sort keys %includeditems) {
-        print STDERR "Including this item - $_\n";
-    }
-    foreach (sort keys %includedres) {
-        print STDERR "Including this resource - $_\n";
-    }
-    foreach (sort keys %importareas) {
-        print STDERR "Including this area - $_\n";
-    }
-
 
     $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'build',\%includedres,\%includeditems);
     if ($manifest_result eq 'ok') {
@@ -626,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,'');