loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

-version 1.4, 2004/03/16 19:51:40
+version 1.5, 2004/03/21 20:44:58
  Line 539  sub display_three {
      my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo);
      if ($manifest_result eq 'ok') {
+         my @path = ($cdom,$crs,$timenow);
+         my $fullpath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/userfiles';
+         foreach my $item (@path) {
+             $fullpath .= '/'.$item;
+             if (!-e "$fullpath") {
+                 mkdir("$fullpath",0770);
+             }
+         }
+         my @namedirs = ("resfiles","sequences","pages","problems");
+         foreach my $name (@namedirs) {
+             if (!-e "$fullpath/$name") {
+                 mkdir("$fullpath/$name",0770);
+             }
+         }
          &Apache::imsprocessor::target_resources(\%resources,\%imports,\@targets);
          my $copy_result = &Apache::imsprocessor::copy_resources('DOCS',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$chome,$destdir,$timenow);