loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2005/06/23 21:56:12	version 1.108, 2005/09/01 19:27:35
Line 164 ENDDOCUMENT	Line 164 ENDDOCUMENT
<h2>$lt{'ecrp'}$helpecpr</h2>	<h2>$lt{'ecrp'}$helpecpr</h2>
$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />	$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
<input name="customeditor" type="submit" value="$lt{'cre'}" />	<input name="customeditor" type="submit" value="$lt{'cre'}" />
</body>	</form>
</html>
ENDCUSTOM	ENDCUSTOM
}	}
	$r->print('</body></html>');
}	}

# =================================================================== Phase two	# =================================================================== Phase two
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
);	);