--- loncom/automation/batchcreatecourse.pm	2010/05/24 06:32:38	1.36
+++ loncom/automation/batchcreatecourse.pm	2011/07/04 09:24:46	1.37
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.36 2010/05/24 06:32:38 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.37 2011/07/04 09:24:46 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,7 +205,7 @@ sub create_courses {
     }
     my ($logmsg,$keysmsg,$newusermsg,$addresult);
     my %enrollcount = ();
-    my $newcoursedir = $$perlvarref{'lonDaemons'}.'/tmp/addcourse/'.$dom.'/'.$context;
+    my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;
     if ($context eq 'auto') {
         $newcoursedir .= '/pending';
     } else {