loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.719, 2006/03/07 02:46:03	version 1.720, 2006/03/08 21:47:15
Line 260 sub critical {	Line 260 sub critical {

sub transfer_profile_to_env {	sub transfer_profile_to_env {
my ($lonidsdir,$handle)=@_;	my ($lonidsdir,$handle)=@_;
	if (!defined($lonidsdir)) {
	$lonidsdir = $perlvar{'lonIDsDir'};
	}
	if (!defined($handle)) {
	($handle) = ($env{'user.environment'} =~m\|/([^/]+)\.id$\| );
	}

my @profile;	my @profile;
{	{
open(my $idf,"$lonidsdir/$handle.id");	open(my $idf,"$lonidsdir/$handle.id");
Line 5236 sub check_group_parms {	Line 5243 sub check_group_parms {

sub sort_course_groups { # Sort groups based on defined rankings. Default is sort().	sub sort_course_groups { # Sort groups based on defined rankings. Default is sort().
my ($grouplist,$courseid) = @_;	my ($grouplist,$courseid) = @_;
my @groups = split/:/,$grouplist;	my @groups = sort(split(/:/,$grouplist));
if (@groups > 1) {
@groups = sort(@groups);
}
return @groups;	return @groups;
}	}