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

Diff for /loncom/automation/Autocreate.pl between versions 1.19 and 1.20.2.1

version 1.19, 2011/03/07 02:10:40 version 1.20.2.1, 2020/07/18 00:16:00
Line 165 Line 165
   
 sub process_xml {  sub process_xml {
     my ($fh,$dom,$dcname,$dcdom) = @_;      my ($fh,$dom,$dcname,$dcdom) = @_;
     &set_dc_env($dcname.$dcdom,$dom);      &set_dc_env($dcname,$dcdom,$dom);
     # Initialize language handler      # Initialize language handler
     &Apache::lonlocal::get_language_handle();      &Apache::lonlocal::get_language_handle();
   
Line 175  sub process_xml { Line 175  sub process_xml {
     closedir(DIR);      closedir(DIR);
     my %courseids = ();      my %courseids = ();
     print $fh "Sending to batch - auto,$dom,$dcname,$dcdom ".join(":",@requests)."\n";      print $fh "Sending to batch - auto,$dom,$dcname,$dcdom ".join(":",@requests)."\n";
     my ($result,$logmsg) = &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);      my ($result,$logmsg,$clonemsg,$keysmsg,$codesref,$instcodesref) =
           &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);
     my $outcome;      my $outcome;
     if ($result ne '') {      if ($result ne '') {
         $outcome = $result."\n";          $outcome = $result."\n";
Line 183  sub process_xml { Line 184  sub process_xml {
     if ($logmsg ne '') {      if ($logmsg ne '') {
         $outcome .= $logmsg."\n";              $outcome .= $logmsg."\n";    
     }      }
       if ($clonemsg ne '') {
           $outcome .= $clonemsg."\n";
       }
     print $fh $outcome;      print $fh $outcome;
   
     my $output;      my $output;
Line 247  sub set_dc_env { Line 251  sub set_dc_env {
     $env{'user.home'} = &Apache::lonnet::homeserver($dcname,$dcdom);      $env{'user.home'} = &Apache::lonnet::homeserver($dcname,$dcdom);
     if ($defdom ne '') {      if ($defdom ne '') {
         $env{'request.role.domain'} = $defdom;          $env{'request.role.domain'} = $defdom;
     }       }
     return;      return;
 }  }
   
Removed from v.1.19  
changed lines
  Added in v.1.20.2.1

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