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

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

version 1.20.2.1, 2020/07/18 00:16:00 version 1.21, 2019/07/26 02:28:28
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,$clonemsg,$keysmsg,$codesref,$instcodesref) =      my ($result,$logmsg,$keysmsg,$codesref,$instcodesref) =
         &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);          &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);
     my $outcome;      my $outcome;
     if ($result ne '') {      if ($result ne '') {
Line 184  sub process_xml { Line 184  sub process_xml {
     if ($logmsg ne '') {      if ($logmsg ne '') {
         $outcome .= $logmsg."\n";              $outcome .= $logmsg."\n";    
     }      }
     if ($clonemsg ne '') {      if ($keysmsg ne '') {
         $outcome .= $clonemsg."\n";          $outcome .=  $keysmsg."\n";
     }      }
     print $fh $outcome;      print $fh $outcome;
   
Line 214  sub process_xml { Line 214  sub process_xml {
     }      }
     $output =~ s/:$//;      $output =~ s/:$//;
     &unset_dc_env();      &unset_dc_env();
       if (ref($instcodesref) eq 'HASH') {
           if (keys(%{$instcodesref}) > 0) {
               &Apache::lonnet::devalidate_cache_new('instcats',$dom);
               if (&Apache::lonnet::shared_institution($dom)) {
                   my %servers = &Apache::lonnet::internet_dom_servers($dom);
                   my %thismachine;
                   map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
                   if (keys(%servers)) {
                       foreach my $server (keys(%servers)) {
                           next if ($thismachine{$server});
                           &Apache::lonnet::remote_devalidate_cache($server,['instcats:'.$dom]);
                       }
                   }
               }
           }
       }
     return $output;      return $output;
 }  }
   
Line 251  sub set_dc_env { Line 267  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.20.2.1  
changed lines
  Added in v.1.21

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