[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 15 Jan 2007 18:04:13 -0000
albertel Mon Jan 15 13:04:13 2007 EDT
Modified files:
/loncom/interface loncommon.pm
Log:
- bug#5145
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.499 loncom/interface/loncommon.pm:1.500
--- loncom/interface/loncommon.pm:1.499 Thu Dec 28 10:49:15 2006
+++ loncom/interface/loncommon.pm Mon Jan 15 13:04:12 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.499 2006/12/28 15:49:15 albertel Exp $
+# $Id: loncommon.pm,v 1.500 2007/01/15 18:04:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3344,7 +3344,7 @@
my ($role,$realm) = split(/\./,$env{'request.role'},2);
if ($role eq 'ca') {
my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$});
- $realm = &plainname($rname,$rdom).':'.$rdom;
+ $realm = &plainname($rname,$rdom);
}
# realm
if ($env{'request.course.id'}) {