loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2002/10/03 14:56:48	version 1.45, 2002/11/25 18:44:33
Line 341 END	Line 341 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 $krbdefdom2=$1;	my $krbdefdom=$1;
my %param = ( formname => 'document.cu',	my %param = ( formname => 'document.cu',
kerb_def_dom => $krbdefdom	kerb_def_dom => $krbdefdom
);	);
Line 437 ENDOTHERAUTHS	Line 437 ENDOTHERAUTHS
#	#
# Co-Author	# Co-Author
#	#
if (&authorpriv($ENV{'user.name'},$ENV{'request.role.domain'})) {	if (&authorpriv($ENV{'user.name'},$ENV{'request.role.domain'}) &&
	($ENV{'user.name'} ne $ccuname \|\| $ENV{'user.domain'} ne $ccdomain)) {
	# No sense in assigning co-author role to yourself
my $cuname=$ENV{'user.name'};	my $cuname=$ENV{'user.name'};
my $cudom=$ENV{'request.role.domain'};	my $cudom=$ENV{'request.role.domain'};
$r->print(<<ENDCOAUTH);	$r->print(<<ENDCOAUTH);