loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.679.2.2, 2008/09/19 22:52:41	version 1.679.2.4, 2008/09/19 23:03:20
Line 2987 sub preferred_languages {	Line 2987 sub preferred_languages {
}	}
}	}
}	}
	return &get_genlanguages(@languages);
	}

	sub get_genlanguages {
	my (@languages) = @_;
# turn "en-ca" into "en-ca,en"	# turn "en-ca" into "en-ca,en"
my @genlanguages;	my @genlanguages;
foreach my $lang (@languages) {	foreach my $lang (@languages) {
unless ($lang=~/\w/) { next; }	unless ($lang=~/\w/) { next; }
push(@genlanguages,$lang);	push(@genlanguages,$lang);
if ($lang=~/(\-\|\_)/) {	if ($lang=~/(\-\|\_)/) {
push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);	push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);
}	}
}	}
#uniqueify the languages list	#uniqueify the languages list
my %count;	my %count;
Line 9323 sub init_user_environment {	Line 9328 sub init_user_environment {
}	}
# Give them a new cookie	# Give them a new cookie
my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'}	my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'}
: $now);	: $now.$$.int(rand(10000)));
$cookie="$username\_$id\_$domain\_$authhost";	$cookie="$username\_$id\_$domain\_$authhost";

# Initialize roles	# Initialize roles