albertel Thu Sep 1 15:27:37 2005 EDT
Modified files:
/loncom/interface loncreateuser.pm
Log:
- BUG$4306 - wrong arg was being filled in for users with exitng kerberos style authentication
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.107 loncom/interface/loncreateuser.pm:1.108
--- loncom/interface/loncreateuser.pm:1.107 Thu Jun 23 17:59:13 2005
+++ loncom/interface/loncreateuser.pm Thu Sep 1 15:27:35 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.107 2005/06/23 21:59:13 www Exp $
+# $Id: loncreateuser.pm,v 1.108 2005/09/01 19:27:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -665,7 +665,7 @@
my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
if ($currentauth=~/^krb(4|5):/) {
$currentauth=~/^krb(4|5):(.*)/;
- my $krbdefdom=$1;
+ my $krbdefdom=$2;
my %param = ( formname => 'document.cu',
kerb_def_dom => $krbdefdom
);