version 1.255, 2010/07/30 20:35:16
|
version 1.256, 2010/08/01 18:34:19
|
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; |
|
} |
} |
} |
} |
} |
} |