loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1323, 2016/09/21 04:57:52
+version 1.1324, 2016/09/21 05:15:40
  Line 4123  sub flushcourselogs {
          delete $domainrolehash{$entry};
      }
      foreach my $dom (keys(%domrolebuffer)) {
- 	my %servers = &get_servers($dom,'library');
+ 	my %servers;
+ 	if (defined(&domain($dom,'primary'))) {
+ 	    my $primary=&domain($dom,'primary');
+ 	    my $hostname=&hostname($primary);
+ 	    $servers{$primary} = $hostname;
+ 	} else {
+ 	    %servers = &get_servers($dom,'library');
+ 	}
  	foreach my $tryserver (keys(%servers)) {
- 	    unless (&reply('domroleput:'.$dom.':'.
+ 	    if (&reply('domroleput:'.$dom.':'.
- 			   $domrolebuffer{$dom},$tryserver) eq 'ok') {
+ 		       $domrolebuffer{$dom},$tryserver) eq 'ok') {
+ 		last;
+ 	    } else {
  		&logthis('Put of domain roles failed for '.$dom.' and  '.$tryserver);
  	    }
          }