--- loncom/build/expire_DC_role.pl	2012/08/17 22:43:03	1.4
+++ loncom/build/expire_DC_role.pl	2015/03/10 20:19:14	1.6
@@ -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.4 2012/08/17 22:43:03 raeburn Exp $
+# $Id: expire_DC_role.pl,v 1.6 2015/03/10 20:19:14 raeburn Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -205,14 +205,11 @@ my $domconfiguser = $domain.'-domainconf
 my $subdir = $domconfiguser;
 $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
 
-print "Looking to tie $dompath/$subdir/nohist_rolelog.db\n";
-
 my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());
 
-if (ref($rolelogref) eq 'HASH') {
-    foreach my $key (keys(%{$rolelogref})) {
-        print "found $key\n";
-    }
+if (!$rolelogref) {
+    print(&mt('unable to tie [_1]',"nohist_rolelog db: $dompath/$subdir/$domconfiguser/nohist_rolelog.db")."\n");
+    exit;
 }
 
 my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');
@@ -235,9 +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");