loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.256.2.1, 2010/08/12 23:40:49	version 1.256.2.2, 2010/08/17 21:35:40
Line 1582 sub check_release_required {	Line 1582 sub check_release_required {
my ($switchserver,$warning);	my ($switchserver,$warning);
if ($required ne '') {	if ($required ne '') {
my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/);	my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/);
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\d.\-]+\'?$/);	my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
if ($reqdmajor ne '' && $reqdminor ne '') {	if ($reqdmajor ne '' && $reqdminor ne '') {
my $otherserver;	my $otherserver;
if (($major eq '' && $minor eq '') \|\|	if (($major eq '' && $minor eq '') \|\|
Line 1591 sub check_release_required {	Line 1591 sub check_release_required {
my $switchlcrev =	my $switchlcrev =
&Apache::lonnet::get_server_loncaparev($env{'user.domain'},	&Apache::lonnet::get_server_loncaparev($env{'user.domain'},
$userdomserver);	$userdomserver);
my ($swmajor,$swminor) = ($switchlcrev =~ /^\'?(\d+)\.(\d+)\.[\d.\-]+\'?$/);	my ($swmajor,$swminor) = ($switchlcrev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
if (($swmajor eq '' && $swminor eq '') \|\| ($reqdmajor > $swmajor) \|\|	if (($swmajor eq '' && $swminor eq '') \|\| ($reqdmajor > $swmajor) \|\|
(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) {	(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) {
my $cdom = $env{'course.'.$tcourseid.'.domain'};	my $cdom = $env{'course.'.$tcourseid.'.domain'};