version 1.228, 2009/06/29 12:43:45
|
version 1.231.4.3, 2010/01/02 18:28:11
|
Line 158 sub redirect_user {
|
Line 158 sub redirect_user {
|
$navwindow.=&Apache::lonnavmaps::close(); |
$navwindow.=&Apache::lonnavmaps::close(); |
} |
} |
|
|
# Breadcrumbs |
|
my $brcrum = [{'href' => $url, |
|
'text' => 'Switching Role'},]; |
|
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
{'redirect' => [1,$url], |
{'redirect' => [1,$url]}); |
'bread_crumbs' => $brcrum,}); |
|
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
# Note to style police: |
# Note to style police: |
Line 189 sub error_page {
|
Line 185 sub error_page {
|
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
# Breadcrumbs |
$r->print(&Apache::loncommon::start_page('Problems during Course Initialization'). |
my $brcrum = [{'href' => $dest, |
|
'text' => 'Problems during Course Initialization'},]; |
|
$r->print(&Apache::loncommon::start_page('Problems during Course Initialization', |
|
undef, |
|
{'bread_crumbs' => $brcrum,}) |
|
); |
|
$r->print( |
|
'<script type="text/javascript">'. |
'<script type="text/javascript">'. |
'// <![CDATA['. |
'// <![CDATA['. |
&Apache::lonmenu::rawconfig(). |
&Apache::lonmenu::rawconfig(). |
'// ]]>'. |
'// ]]>'. |
'</script>'. |
'</script>'. |
'<p class="LC_error">'.&mt('The following problems occurred:'). |
'<p class="LC_error">'.&mt('The following problems occurred:'). |
'<br />'. |
'<br />'. |
$error. |
$error. |
'</p><br /><a href="'.$dest.'">'.&mt('Continue').'</a>' |
'</p><br /><a href="'.$dest.'">'.&mt('Continue').'</a>'. |
); |
&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
|
} |
} |
|
|
sub handler { |
sub handler { |
Line 238 sub handler {
|
Line 226 sub handler {
|
# Check if user is CC trying to select a course role |
# Check if user is CC trying to select a course role |
if ($env{'form.switchrole'}) { |
if ($env{'form.switchrole'}) { |
if (!defined($env{'user.role.'.$env{'form.switchrole'}})) { |
if (!defined($env{'user.role.'.$env{'form.switchrole'}})) { |
&adhoc_course_role($then); |
&adhoc_course_role($refresh,$then); |
} |
} |
} |
} |
my %temp=('logout_'.$env{'request.course.id'} => time); |
my %temp=('logout_'.$env{'request.course.id'} => time); |
Line 260 sub handler {
|
Line 248 sub handler {
|
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) { |
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) { |
if ($dcroles{$domain}) { |
if ($dcroles{$domain}) { |
&Apache::lonnet::check_adhoc_privs($domain,$coursenum, |
&Apache::lonnet::check_adhoc_privs($domain,$coursenum, |
$then,$now,'cc'); |
$then,$refresh,$now,'cc'); |
} |
} |
last; |
last; |
} |
} |
Line 301 sub handler {
|
Line 289 sub handler {
|
my ($server_status,$home) = &check_author_homeserver($user,$domain); |
my ($server_status,$home) = &check_author_homeserver($user,$domain); |
if (($server_status eq 'ok') || ($server_status eq 'switchserver')) { |
if (($server_status eq 'ok') || ($server_status eq 'switchserver')) { |
&Apache::lonnet::check_adhoc_privs($domain,$user,$then, |
&Apache::lonnet::check_adhoc_privs($domain,$user,$then, |
$now,'ca'); |
$refresh,$now,'ca'); |
if ($server_status eq 'switchserver') { |
if ($server_status eq 'switchserver') { |
my $trolecode = 'ca./'.$domain.'/'.$user; |
my $trolecode = 'ca./'.$domain.'/'.$user; |
my $switchserver = '/adm/switchserver?' |
my $switchserver = '/adm/switchserver?' |
Line 757 ENDHEADER
|
Line 745 ENDHEADER
|
unless ((!&Apache::loncommon::show_course()) || ($nochoose) || ($countactive==1)) { |
unless ((!&Apache::loncommon::show_course()) || ($nochoose) || ($countactive==1)) { |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
} |
} |
|
if ($env{'form.destinationurl'}) { |
|
$r->print('<input type="hidden" name="destinationurl" value="'. |
|
$env{'form.destinationurl'}.'" />'); |
|
if ($env{'form.destsymb'} ne '') { |
|
$r->print('<input type="hidden" name="destsymb" value="'. |
|
$env{'form.destsymb'}.'" />'); |
|
} |
|
} |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose); |
if ($env{'environment.recentroles'}) { |
if ($env{'environment.recentroles'}) { |
my %recent_roles = |
my %recent_roles = |
Line 835 ENDHEADER
|
Line 831 ENDHEADER
|
$r->print(&Apache::lonnet::getannounce()); |
$r->print(&Apache::lonnet::getannounce()); |
if ($advanced) { |
if ($advanced) { |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
$r->print('<p><small><i>' |
$r->print('<p><small><i>' |
.&mt('This is LON-CAPA [_1]',$r->dir_config('lonVersion')) |
.&mt('This LON-CAPA server is version [_1]',$r->dir_config('lonVersion')) |
.'</i><br />' |
.'</i><br />' |
.'<a href="/adm/logout">'.&mt('Logout').'</a> ' |
.'<a href="/adm/logout">'.&mt('Logout').'</a> ' |
.'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
.'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
.&mt('Course Catalog') |
.&mt('Course Catalog') |
.'</a></small></p>'); |
.'</a></small></p>'); |
Line 1376 sub check_fordc {
|
Line 1372 sub check_fordc {
|
} |
} |
|
|
sub adhoc_course_role { |
sub adhoc_course_role { |
my ($then) = @_; |
my ($refresh,$then) = @_; |
my ($cdom,$cnum); |
my ($cdom,$cnum); |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
if (&check_forcc($cdom,$cnum,$then)) { |
if (&check_forcc($cdom,$cnum,$refresh,$then)) { |
my $setprivs; |
my $setprivs; |
if (!defined($env{'user.role.'.$env{'form.switchrole'}})) { |
if (!defined($env{'user.role.'.$env{'form.switchrole'}})) { |
$setprivs = 1; |
$setprivs = 1; |
} else { |
} else { |
my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.switchrole'}}); |
my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.switchrole'}}); |
if (($start && ($start>$then || $start == -1)) || |
if (($start && ($start>$refresh || $start == -1)) || |
($end && $end<$then)) { |
($end && $end<$then)) { |
$setprivs = 1; |
$setprivs = 1; |
} |
} |
} |
} |
if ($setprivs) { |
if ($setprivs) { |
if ($env{'form.switchrole'} =~ m-^(in|ta|ep|ad|st|cr)([\w/]*)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
if ($env{'form.switchrole'} =~ m-^(in|ta|ep|ad|st|cr)([\w/]*)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) { |
my $role = $1; |
my $role = $1; |
Line 1420 sub adhoc_course_role {
|
Line 1416 sub adhoc_course_role {
|
} |
} |
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area); |
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area); |
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups); |
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups); |
my $adhocstart = $then-1; |
my $adhocstart = $refresh-1; |
$userroles{'user.role.'.$spec} = $adhocstart.'.'; |
$userroles{'user.role.'.$spec} = $adhocstart.'.'; |
&Apache::lonnet::appenv(\%userroles,[$role,'cm']); |
&Apache::lonnet::appenv(\%userroles,[$role,'cm']); |
} |
} |
Line 1430 sub adhoc_course_role {
|
Line 1426 sub adhoc_course_role {
|
} |
} |
|
|
sub check_forcc { |
sub check_forcc { |
my ($cdom,$cnum,$then) = @_; |
my ($cdom,$cnum,$refresh,$then) = @_; |
my $is_cc; |
my $is_cc; |
if ($cdom ne '' && $cnum ne '') { |
if ($cdom ne '' && $cnum ne '') { |
if (&Apache::lonnet::is_course($cdom,$cnum)) { |
if (&Apache::lonnet::is_course($cdom,$cnum)) { |
Line 1438 sub check_forcc {
|
Line 1434 sub check_forcc {
|
if (defined($env{$envkey})) { |
if (defined($env{$envkey})) { |
$is_cc = 1; |
$is_cc = 1; |
my ($tstart,$tend)=split(/\./,$env{$envkey}); |
my ($tstart,$tend)=split(/\./,$env{$envkey}); |
if ($tstart && $tstart>$then) { $is_cc = 0; } |
if ($tstart && $tstart>$refresh) { $is_cc = 0; } |
if ($tend && $tend <$then) { $is_cc = 0; } |
if ($tend && $tend <$then) { $is_cc = 0; } |
} |
} |
} |
} |