loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.312, 2002/12/09 19:04:44	version 1.314, 2003/01/09 22:45:51
Line 1864 sub allowed {	Line 1864 sub allowed {
$thisallowed.=$1;	$thisallowed.=$1;
}	}

	# URI is an uploaded document for this course

	if (($priv eq 'bre') &&
	($uri=~/^uploaded\/$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}\/$ENV{'course.'.$ENV{'request.course.id'}.'.num'}/)) {
	return 'F';
	}
# Full access at system, domain or course-wide level? Exit.	# Full access at system, domain or course-wide level? Exit.

if ($thisallowed=~/F/) {	if ($thisallowed=~/F/) {
Line 2350 sub modifyuser {	Line 2356 sub modifyuser {
}	}
}	}
# -------------------------------------------------------------- Add names, etc	# -------------------------------------------------------------- Add names, etc
my %names=&get('environment',	my @tmp=&get('environment',
['firstname','middlename','lastname','generation'],	['firstname','middlename','lastname','generation'],
$udom,$uname);	$udom,$uname);
if ($names{'firstname'} =~ m/^error:.*/) { %names=(); }	my %names;
	if ($tmp[0] =~ m/^error:.*/) {
	%names=();
	} else {
	%names = @tmp;
	}
if ($first) { $names{'firstname'} = $first; }	if ($first) { $names{'firstname'} = $first; }
if ($middle) { $names{'middlename'} = $middle; }	if ($middle) { $names{'middlename'} = $middle; }
if ($last) { $names{'lastname'} = $last; }	if ($last) { $names{'lastname'} = $last; }