--- loncom/build/add_domain_coordinator_privilege.pl	2012/08/17 22:43:03	1.8
+++ loncom/build/add_domain_coordinator_privilege.pl	2015/03/10 21:26:04	1.10
@@ -14,7 +14,7 @@ exisiting user on a LON-CAPA system.
 # add_domain_coordinator_privilege.pl - Add domain coordinator to an
 #    exisiting user on a LON-CAPA system.
 #
-# $Id: add_domain_coordinator_privilege.pl,v 1.8 2012/08/17 22:43:03 raeburn Exp $
+# $Id: add_domain_coordinator_privilege.pl,v 1.10 2015/03/10 21:26:04 raeburn Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -238,7 +238,7 @@ system('/bin/chown',"www:www","$dompath/
 # Log with domainconfiguser in nohist_rolelog.db
 my $domconfiguser = $domain.'-domainconfig';
 my $subdir = $domconfiguser;
-$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+$subdir =~ s/^(.)(.)(.).*$/$1\/$2\/$3/;
 
 my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());
 my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');
@@ -261,8 +261,8 @@ my $domlogvalue = {
 $rolelogref->{$domlogkey}=&freeze_escape($domlogvalue);
 &LONCAPA::locking_hash_untie($rolelogref);
 
- system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db"); # Must be writeable by httpd process.
- system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db.lock");
+ system('/bin/chown',"www:www","$dompath/$subdir/$domconfiguser/nohist_rolelog.db"); # Must be writeable by httpd process.
+ system('/bin/chown',"www:www","$dompath/$subdir/$domconfiguser/nohist_rolelog.db.lock");
 
 =pod