[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /build add_domain_coordinator_privilege.pl
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2015-02-22 19:31:39
Message-ID: cvsraeburn1424633499 () cvsserver
[Download RAW message or body]
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');
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic