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

Diff for /loncom/automation/Autocreate.pl between versions 1.13 and 1.16

version 1.13, 2010/03/30 15:24:52 version 1.16, 2010/09/26 02:29:55
Line 110 Line 110
                 close($fh);                  close($fh);
                 exit;                  exit;
             }              }
               $env{'user.name'} = $dcname;
               $env{'user.domain'} = $dcdom;
               $env{'request.role.domain'} = $defdom;
               my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');
               my %permissionflags = ();
               &set_permissions(\%permissionflags,\@permissions);
             my $output = &process_xml($fh,$defdom,$dcname,$dcdom);              my $output = &process_xml($fh,$defdom,$dcname,$dcdom);
             print $output;              print $output;
               &unset_permissions(\%permissionflags);
         }          }
     } else {      } else {
         my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');          my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');
Line 142 Line 149
                     }                      }
                 }                  }
                 if ($settings->{'req'}) {                  if ($settings->{'req'}) {
                     my $output = &Apache::process_official_reqs('auto',$dom);                      my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom);
                     if ($output) {                      if ($output) {
                         print $fh $output;                          print $fh $output;
                     }                      }
Line 212  sub process_xml { Line 219  sub process_xml {
   
 sub check_activedc {  sub check_activedc {
     my ($dcdom,$dcname,$defdom) = @_;      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 {  sub set_permissions {
Removed from v.1.13  
changed lines
  Added in v.1.16

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