[BACK]Return to batchcreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / automation

Diff for /loncom/automation/batchcreatecourse.pm between versions 1.35.4.1 and 1.37

version 1.35.4.1, 2010/02/26 23:50:28 version 1.37, 2011/07/04 09:24:46
Line 205  sub create_courses { Line 205  sub create_courses {
     }      }
     my ($logmsg,$keysmsg,$newusermsg,$addresult);      my ($logmsg,$keysmsg,$newusermsg,$addresult);
     my %enrollcount = ();      my %enrollcount = ();
     my $newcoursedir = $$perlvarref{'lonDaemons'}.'/tmp/addcourse/'.$dom.'/'.$context;      my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;
     if ($context eq 'auto') {      if ($context eq 'auto') {
         $newcoursedir .= '/pending';          $newcoursedir .= '/pending';
     } else {      } else {
Line 434  sub build_course { Line 434  sub build_course {
     }      }
     my $firstres =  $details->{'firstres'};      my $firstres =  $details->{'firstres'};
     if ($firstres eq '') {      if ($firstres eq '') {
         $firstres = 'syl';          if ($crstype eq 'Community') {
               $firstres = 'nav';
           } else {
               $firstres = 'syl';
           }
     }      }
     foreach my $secid (sort(keys(%{$details->{'sections'}}))) {      foreach my $secid (sort(keys(%{$details->{'sections'}}))) {
         $sectionstr .= $details->{'sections'}{$secid}{'inst'}.':'.$details->{'sections'}{$secid}{'loncapa'}.',';          $sectionstr .= $details->{'sections'}{$secid}{'inst'}.':'.$details->{'sections'}{$secid}{'loncapa'}.',';
Line 493  sub build_course { Line 497  sub build_course {
                crsquota => $details->{'crsquota'},                 crsquota => $details->{'crsquota'},
                clonecourse => $details->{'clonecrs'},                 clonecourse => $details->{'clonecrs'},
                clonedomain => $details->{'clonedom'},                 clonedomain => $details->{'clonedom'},
                cloneroster => $details->{'cloneroster'},  
                datemode => $details->{'datemode'},                 datemode => $details->{'datemode'},
                dateshift => $details->{'dateshift'},                 dateshift => $details->{'dateshift'},
                crsid => $details->{'optional_id'},                 crsid => $details->{'optional_id'},
Removed from v.1.35.4.1  
changed lines
  Added in v.1.37

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>