loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.278, 2005/10/04 18:49:32	version 1.280, 2005/10/14 20:16:46
Line 3118 sub get_course_users {	Line 3118 sub get_course_users {
}	}
}	}
}	}
	if (grep/^ow$/,@{$roles}) {
	if ((defined($cdom)) && (defined($cnum))) {
	my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum);
	if ( defined($csettings{'internal.courseowner'}) ) {
	my $owner = $csettings{'internal.courseowner'};
	$$users{'ow'}{$owner.':'.$cdom} = 'any';
	}
	}
	}
}	}
return;	return;
}	}
Line 3707 the routine &Apache::lonnet::transfer_pr	Line 3716 the routine &Apache::lonnet::transfer_pr
my $uniq=0;	my $uniq=0;
sub get_cgi_id {	sub get_cgi_id {
$uniq=($uniq+1)%100000;	$uniq=($uniq+1)%100000;
return (time.'_'.$uniq);	return (time.'_'.$$.'_'.$uniq);
}	}

############################################################	############################################################