version 1.269.2.18, 2014/05/04 22:24:44
|
version 1.269.2.19, 2014/05/05 11:44:18
|
Line 1764 sub check_release_required {
|
Line 1764 sub check_release_required {
|
my $otherserver; |
my $otherserver; |
if (($major eq '' && $minor eq '') || |
if (($major eq '' && $minor eq '') || |
(($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)))) { |
(($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)))) { |
my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required); |
my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'},undef,$required,1); |
my $switchlcrev = |
my $switchlcrev = |
&Apache::lonnet::get_server_loncaparev($env{'user.domain'}, |
&Apache::lonnet::get_server_loncaparev($env{'user.domain'}, |
$userdomserver); |
$userdomserver); |
Line 1773 sub check_release_required {
|
Line 1773 sub check_release_required {
|
(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) { |
(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) { |
my $cdom = $env{'course.'.$tcourseid.'.domain'}; |
my $cdom = $env{'course.'.$tcourseid.'.domain'}; |
if ($cdom ne $env{'user.domain'}) { |
if ($cdom ne $env{'user.domain'}) { |
my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom); |
my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom,undef,$required,1); |
my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname); |
my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname); |
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID); |
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID); |
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom); |
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom); |