[LON-CAPA-cvs] cvs: loncom /build add_domain_coordinator_privilege.pl

[raeburn]

raeburn		Sun Feb 22 19:31:39 2015 EDT

  Modified files:              
    /loncom/build	add_domain_coordinator_privilege.pl 
  Log:
  - Tighten-up regexp.
  
  
Index: loncom/build/add_domain_coordinator_privilege.pl
diff -u loncom/build/add_domain_coordinator_privilege.pl:1.8 loncom/build/add_domain_coordinator_privilege.pl:1.9
--- loncom/build/add_domain_coordinator_privilege.pl:1.8	Fri Aug 17 22:43:03 2012
+++ loncom/build/add_domain_coordinator_privilege.pl	Sun Feb 22 19:31:38 2015
@@ -14,7 +14,7 @@
 # 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.9 2015/02/22 19:31:38 raeburn Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -238,7 +238,7 @@
 # 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');