loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.107, 2005/06/23 21:59:13	version 1.108, 2005/09/01 19:27:35
Line 665 END	Line 665 END
my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);	my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
if ($currentauth=~/^krb(4\|5):/) {	if ($currentauth=~/^krb(4\|5):/) {
$currentauth=~/^krb(4\|5):(.*)/;	$currentauth=~/^krb(4\|5):(.*)/;
my $krbdefdom=$1;	my $krbdefdom=$2;
my %param = ( formname => 'document.cu',	my %param = ( formname => 'document.cu',
kerb_def_dom => $krbdefdom	kerb_def_dom => $krbdefdom
);	);