--- loncom/automation/batchcreatecourse.pm	2006/05/26 15:37:14	1.12
+++ loncom/automation/batchcreatecourse.pm	2006/05/31 12:57:26	1.14
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.12 2006/05/26 15:37:14 albertel Exp $
+# $Id: batchcreatecourse.pm,v 1.14 2006/05/31 12:57:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,7 +166,7 @@ use strict;
 #
 #                    Directory for retrieval of files listed in @$requests is: 
 #                    /home/httpd/perl/tmp/addcourse/$dom/auto/pending if $context = auto
-#                    /home/httpd/perl/tmp/addcourse/$dom/web/$udom_$uname if $context = web
+#                    /home/httpd/perl/tmp/addcourse/$dom/web/$uname_$udom/pending if $context = web
 #                    
 # inputs (five)  -  requests - ref to array of filename(s) containing course requests 
 #                   courseids - ref to hash to store LON-CAPA course ids of new courses 
@@ -201,7 +201,7 @@ sub create_courses {
         $newcoursedir .= '/pending';
     } else {
         if ($uname && $udom) {
-            $newcoursedir .= '/'.$udom.'_'.$uname;
+            $newcoursedir .= '/'.$uname.'_'.$udom.'/pending';
         } else {
             $logmsg = "batchcreatecourse::create_courses() called without username and/or domain of requesting Domain Coordinator";
         }
@@ -669,10 +669,10 @@ sub process_date {
             }
             if ($entries[2] == 29) {
                 if ($entries[0]%4 != 0) {
-                    $entries[2] == 28;
+                    $entries[2] = 28;
                 } elsif ( $entries[0]%100 == 0
 			  && $entries[0]%400 != 0) {
-		    $entries[2] == 28;
+		    $entries[2] = 28;
 		}
             }
         }