loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

-version 1.15, 2010/08/28 19:00:42
+version 1.16, 2010/09/26 02:29:55
  Line 219  sub process_xml {
  sub check_activedc {
      my ($dcdom,$dcname,$defdom) = @_;
-     my %dumphash=
+     my %roleshash =
-             &Apache::lonnet::dump('roles',$dcdom,$dcname);
+         &Apache::lonnet::get_my_roles($dcname,$dcdom,'userroles',undef,['dc'],[$defdom]);
-     my $now=time;
+     if (keys(%roleshash) > 0) {
-     my $activedc = 0;
+         return 1;
-     foreach my $item (keys %dumphash) {
-         my ($domain,$role) = ($item =~ m-^/([^/]+)/[^_]*_(\w+)$-);
-         if ($role eq 'dc' && $domain eq $defdom) {
-             my ($trole,$tend,$tstart)=split(/_/,$dumphash{$item});
-             if (($tend) && ($tend<$now)) { next; }
-             if (($tstart) && ($now<$tstart)) { next; }
-             $activedc = 1;
-             last;
-         }
      }
-     return $activedc;
+     return 0;
  }
  sub set_permissions {