[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Mon, 25 Nov 2002 18:44:33 -0000
matthew Mon Nov 25 13:44:33 2002 EDT
Modified files:
/loncom/interface loncreateuser.pm
Log:
Display correct default kerberos domain if the user is already kerberos
authenticated.
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.44 loncom/interface/loncreateuser.pm:1.45
--- loncom/interface/loncreateuser.pm:1.44 Mon Nov 18 15:06:53 2002
+++ loncom/interface/loncreateuser.pm Mon Nov 25 13:44:33 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.44 2002/11/18 20:06:53 matthew Exp $
+# $Id: loncreateuser.pm,v 1.45 2002/11/25 18:44:33 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -47,7 +47,7 @@
# 11/12,11/13,11/15 Scott Harrison
# 02/11/02 Matthew Hall
#
-# $Id: loncreateuser.pm,v 1.44 2002/11/18 20:06:53 matthew Exp $
+# $Id: loncreateuser.pm,v 1.45 2002/11/25 18:44:33 matthew Exp $
###
package Apache::loncreateuser;
@@ -341,7 +341,7 @@
my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
if ($currentauth=~/^krb(4|5):/) {
$currentauth=~/^krb(4|5):(.*)/;
- my $krbdefdom2=$1;
+ my $krbdefdom=$1;
my %param = ( formname => 'document.cu',
kerb_def_dom => $krbdefdom
);