loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.13, 2010/03/30 15:24:52	version 1.14, 2010/08/13 16:37:30
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');