--- loncom/build/expire_DC_role.pl	2012/10/12 12:29:00	1.5
+++ loncom/build/expire_DC_role.pl	2015/03/10 21:24:53	1.7
@@ -6,7 +6,7 @@
 # a user who currently has such a role in a domain for which current server is
 # a library server for the domain.
 # 
-# $Id: expire_DC_role.pl,v 1.5 2012/10/12 12:29:00 raeburn Exp $
+# $Id: expire_DC_role.pl,v 1.7 2015/03/10 21:24:53 raeburn Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -194,7 +194,7 @@ if (!$domrolesref) {
 
 # Store in nohist_domainroles.db
 my $domkey=&LONCAPA::escape('dc:'.$username.':'.$domain.'::'.$domain.':');
-$domrolesref->{$domkey}= &LONCAPA::escape('$now:'.$start);
+$domrolesref->{$domkey}= &LONCAPA::escape($now.':'.$start);
 &LONCAPA::locking_hash_untie($domrolesref);
 
  system('/bin/chown',"www:www","$dompath/nohist_domainroles.db"); # Must be writeable by httpd process.
@@ -232,8 +232,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");
 
 # Output success message.
 print(&mt('User: [_1], domain coordinator role expired in domain: [_2].',$user,$role_domain)."\n");