loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.483, 2006/12/01 21:52:29	version 1.487, 2006/12/05 02:55:51
Line 2942 sub blockcheck {	Line 2942 sub blockcheck {
last;	last;
}	}
}	}
} else {	} else {
if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {	if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {
$no_ownblock = 1;	$no_ownblock = 1;
last;	last;
Line 5225 sub record_sep {	Line 5225 sub record_sep {
}	}
} else {	} else {
my @allfields;	my @allfields;
&Apache::lonnet::logthis("file type is ".$env{'form.upfiletype'});
if ($env{'form.upfiletype'} eq 'semisv') {	if ($env{'form.upfiletype'} eq 'semisv') {
@allfields=split(/;/,$record);	@allfields=split(/;/,$record);
} else {	} else {
Line 6290 sub construct_course {	Line 6289 sub construct_course {
# if specified, key authority is not course, but user	# if specified, key authority is not course, but user
# only active if keyaccess is yes	# only active if keyaccess is yes
if ($args->{'keyauth'}) {	if ($args->{'keyauth'}) {
$args->{'keyauth'}=~s/[^\w\@]//g;	my ($user,$domain) = split(':',$args->{'keyauth'});
if ($args->{'keyauth'}) {	$user = &LONCAPA::clean_username($user);
$cenv{'keyauth'}=$args->{'keyauth'};	$domain = &LONCAPA::clean_username($domain);
	if ($user ne '' && $domain ne '');
	$cenv{'keyauth'}=$user.':'.$domain;
}	}
}	}