loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.512, 2014/11/24 02:36:16	version 1.514, 2015/01/03 02:43:05
Line 2808 sub newput_user_profile_entry {	Line 2808 sub newput_user_profile_entry {
foreach my $pair (@pairs) {	foreach my $pair (@pairs) {
my ($key,$value)=split(/=/,$pair);	my ($key,$value)=split(/=/,$pair);
if (exists($hashref->{$key})) {	if (exists($hashref->{$key})) {
&Failure($client, "key_exists: ".$key."\n",$userinput);	if (!&untie_user_hash($hashref)) {
return 1;	&logthis("error: ".($!+0)." untie (GDBM) failed ".
	"while attempting newput - early out as key exists");
	}
	&Failure($client, "key_exists: ".$key."\n",$userinput);
	return 1;
}	}
}	}

Line 6625 sub make_new_child {	Line 6629 sub make_new_child {
&Authen::Krb5::init_context();	&Authen::Krb5::init_context();

my $no_ets;	my $no_ets;
if ($dist =~ /^(?:centos\|rhes)(\d+)$/) {	if ($dist =~ /^(?:centos\|rhes\|scientific)(\d+)$/) {
if ($1 >= 7) {	if ($1 >= 7) {
$no_ets = 1;	$no_ets = 1;
}	}
Line 6633 sub make_new_child {	Line 6637 sub make_new_child {
if (($1 eq '9.3') \|\| ($1 >= 12.2)) {	if (($1 eq '9.3') \|\| ($1 >= 12.2)) {
$no_ets = 1;	$no_ets = 1;
}	}
	} elsif ($dist =~ /^sles(\d+)$/) {
	if ($1 > 11) {
	$no_ets = 1;
	}
} elsif ($dist =~ /^fedora(\d+)$/) {	} elsif ($dist =~ /^fedora(\d+)$/) {
if ($1 < 7) {	if ($1 < 7) {
$no_ets = 1;	$no_ets = 1;