version 1.255, 2010/07/30 20:35:16
|
version 1.258, 2010/08/24 13:18:26
|
Line 329 sub handler {
|
Line 329 sub handler {
|
my @ids = &Apache::lonnet::current_machine_ids(); |
my @ids = &Apache::lonnet::current_machine_ids(); |
unless ($loncaparev eq '' && $home && grep(/^\Q$home\E$/,@ids)) { |
unless ($loncaparev eq '' && $home && grep(/^\Q$home\E$/,@ids)) { |
my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired'); |
my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired'); |
if ($curr_reqd_hash{'internal.releaserequired'} && |
if ($curr_reqd_hash{'internal.releaserequired'} ne '') { |
$curr_reqd_hash{'internal.releaserequired'} > $loncaparev) { |
|
my ($switchserver,$switchwarning) = |
my ($switchserver,$switchwarning) = |
&check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'}); |
&check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'}); |
&Apache::loncommon::content_type($r,'text/html'); |
if ($switchwarning ne '' || $switchserver ne '') { |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
&Apache::loncommon::no_cache($r); |
my $end_page=&Apache::loncommon::end_page(); |
$r->send_http_header; |
$r->print(&Apache::loncommon::start_page('Selected course unavailable on this server'). |
my $end_page=&Apache::loncommon::end_page(); |
'<p class="LC_warning">'); |
$r->print(&Apache::loncommon::start_page('Selected course unavailable on this server'). |
if ($switchwarning) { |
'<p class="LC_warning">'); |
$r->print($switchwarning.'<br /><a href="/adm/roles">'); |
if ($switchwarning) { |
if (&Apache::loncommon::show_course()) { |
$r->print($switchwarning.'<br /><a href="/adm/roles">'); |
$r->print(&mt('Display courses')); |
if (&Apache::loncommon::show_course()) { |
} else { |
$r->print(&mt('Display courses')); |
$r->print(&mt('Display roles')); |
} else { |
|
$r->print(&mt('Display roles')); |
|
} |
|
$r->print('</a>'); |
|
} elsif ($switchserver) { |
|
$r->print(&mt('This course requires a newer version of LON-CAPA than is installed on this server.'). |
|
'<br />'. |
|
'<a href="/adm/switchserver?'.$switchserver.'">'. |
|
&mt('Switch Server'). |
|
'</a>'); |
} |
} |
$r->print('</a>'); |
$r->print('</p>'.&Apache::loncommon::end_page()); |
} elsif ($switchserver) { |
return OK; |
$r->print(&mt('This course requires a newer version of LON-CAPA than is installed on this server.'). |
|
'<br />'. |
|
'<a href="/adm/switchserver?'.$switchserver.'">'. |
|
&mt('Switch Server'). |
|
'</a>'); |
|
} |
} |
$r->print('</p>'.&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
} |
} |
} |
} |
} |
Line 1563 sub check_release_required {
|
Line 1564 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 1572 sub check_release_required {
|
Line 1573 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'}; |
Line 1736 sub display_cc_role {
|
Line 1737 sub display_cc_role {
|
$env{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid); |
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid); |
$twhere.="<br />".&mt('Domain').":".$1; |
$twhere.="<br />".&mt('Domain').":".$tdom; |
($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
} |
} |
} |
} |