--- loncom/automation/Autocreate.pl	2010/08/28 19:00:42	1.15
+++ loncom/automation/Autocreate.pl	2011/03/06 21:44:14	1.18
@@ -2,7 +2,7 @@
 #
 # Automated Course Creation script
 #
-# $Id: Autocreate.pl,v 1.15 2010/08/28 19:00:42 raeburn Exp $
+# $Id: Autocreate.pl,v 1.18 2011/03/06 21:44:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -132,12 +132,12 @@
             my $settings;
             if (ref($domconfig{'autocreate'}) eq 'HASH') {
                 $settings = $domconfig{'autocreate'};
+                my ($dcname,$dcdom);
+                if ($settings->{'xmldc'}) {
+                    ($dcname,$dcdom) = split(':',$settings->{'xmldc'});
+                }
                 if ($settings->{'xml'}) {
                     if ($settings->{'xmldc'}) {
-                        my ($dcname,$dcdom) = split(':',$settings->{'xmldc'});
-                        $env{'user.name'} = $dcname;
-                        $env{'user.domain'} = $dcdom;
-                        $env{'request.role.domain'} = $dom;
                         if (!&check_activedc($dcdom,$dcname,$dom)) {
                             print $fh "Autocreate.pl in domain $dom configured to run under the auspices of a user without an active domain coordinator role in the domain - course creation will be skipped.\n\n";
                             next;
@@ -149,7 +149,7 @@
                     }
                 }
                 if ($settings->{'req'}) {
-                    my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom);
+                    my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom,$dcname,$dcdom);
                     if ($output) {
                         print $fh $output;
                     }
@@ -219,21 +219,12 @@ sub process_xml {
 
 sub check_activedc {
     my ($dcdom,$dcname,$defdom) = @_;
-    my %dumphash=
-            &Apache::lonnet::dump('roles',$dcdom,$dcname);
-    my $now=time;
-    my $activedc = 0;
-    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;
-        }
+    my %roleshash = 
+        &Apache::lonnet::get_my_roles($dcname,$dcdom,'userroles',undef,['dc'],[$defdom]);
+    if (keys(%roleshash) > 0) {
+        return 1;
     }
-    return $activedc;
+    return 0;
 }
 
 sub set_permissions {