version 1.113, 2004/12/03 05:15:30
|
version 1.118, 2005/04/07 06:56:21
|
Line 30
|
Line 30
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::lonuserstate(); |
use Apache::lonuserstate(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
Line 80 sub handler {
|
Line 80 sub handler {
|
my $r = shift; |
my $r = shift; |
|
|
my $now=time; |
my $now=time; |
my $then=$ENV{'user.login.time'}; |
my $then=$env{'user.login.time'}; |
my $envkey; |
my $envkey; |
my %dcroles = (); |
my %dcroles = (); |
my $numdc = &check_fordc(\%dcroles,$then); |
my $numdc = &check_fordc(\%dcroles,$then); |
|
|
# ================================================================== Roles Init |
# ================================================================== Roles Init |
if ($ENV{'form.selectrole'}) { |
if ($env{'form.selectrole'}) { |
if ($ENV{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
my %temp=('logout_'.$env{'request.course.id'} => time); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::delenv('user.state.'.$ENV{'request.course.id'}); |
&Apache::lonnet::delenv('user.state.'.$env{'request.course.id'}); |
} |
} |
&Apache::lonnet::appenv("request.course.id" => '', |
&Apache::lonnet::appenv("request.course.id" => '', |
"request.course.fn" => '', |
"request.course.fn" => '', |
"request.course.uri" => '', |
"request.course.uri" => '', |
"request.course.sec" => '', |
"request.course.sec" => '', |
"request.role" => 'cm', |
"request.role" => 'cm', |
"request.role.adv" => $ENV{'user.adv'}, |
"request.role.adv" => $env{'user.adv'}, |
"request.role.domain" => $ENV{'user.domain'}); |
"request.role.domain" => $env{'user.domain'}); |
|
|
# Check if user is a DC trying to enter a course and needs privs to be created |
# Check if user is a DC trying to enter a course and needs privs to be created |
if ($numdc > 0) { |
if ($numdc > 0) { |
foreach my $envkey (keys %ENV) { |
foreach my $envkey (keys %env) { |
if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) { |
if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) { |
if ($dcroles{$1}) { |
if ($dcroles{$1}) { |
my $cckey = 'user.role.cc./'.$1.'/'.$2; |
my $cckey = 'user.role.cc./'.$1.'/'.$2; |
Line 113 sub handler {
|
Line 113 sub handler {
|
} |
} |
} |
} |
|
|
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %env) { |
next if ($envkey!~/^user\.role\./); |
next if ($envkey!~/^user\.role\./); |
my ($where,$trolecode,$role,$tstatus,$tend,$tstart); |
my ($where,$trolecode,$role,$tstatus,$tend,$tstart); |
&role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend); |
&role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend); |
if ($ENV{'form.'.$trolecode}) { |
if ($env{'form.'.$trolecode}) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$where=~s/^\///; |
$where=~s/^\///; |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
# store role if recent_role list being kept |
# store role if recent_role list being kept |
if ($ENV{'environment.recentroles'}) { |
if ($env{'environment.recentroles'}) { |
&Apache::lonhtmlcommon::store_recent('roles', |
&Apache::lonhtmlcommon::store_recent('roles', |
$trolecode,' '); |
$trolecode,' '); |
} |
} |
Line 130 sub handler {
|
Line 130 sub handler {
|
|
|
# check for keyed access |
# check for keyed access |
if (($role eq 'st') && |
if (($role eq 'st') && |
($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) { |
($env{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) { |
# who is key authority? |
# who is key authority? |
my $authdom=$cdom; |
my $authdom=$cdom; |
my $authnum=$cnum; |
my $authnum=$cnum; |
if ($ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'}) { |
if ($env{'course.'.$cdom.'_'.$cnum.'.keyauth'}) { |
($authnum,$authdom)= |
($authnum,$authdom)= |
split(/\W/,$ENV{'course.'.$cdom.'_'.$cnum.'.keyauth'}); |
split(/\W/,$env{'course.'.$cdom.'_'.$cnum.'.keyauth'}); |
} |
} |
# check with key authority |
# check with key authority |
unless (&Apache::lonnet::validate_access_key( |
unless (&Apache::lonnet::validate_access_key( |
$ENV{'environment.key.'.$cdom.'_'.$cnum}, |
$env{'environment.key.'.$cdom.'_'.$cnum}, |
$authdom,$authnum)) { |
$authdom,$authnum)) { |
# there is no valid key |
# there is no valid key |
if ($ENV{'form.newkey'}) { |
if ($env{'form.newkey'}) { |
# student attempts to register a new key |
# student attempts to register a new key |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
Line 155 sub handler {
|
Line 155 sub handler {
|
my $message=&mt('Successfully registered key'); |
my $message=&mt('Successfully registered key'); |
my $assignresult= |
my $assignresult= |
&Apache::lonnet::assign_access_key( |
&Apache::lonnet::assign_access_key( |
$ENV{'form.newkey'}, |
$env{'form.newkey'}, |
$authdom,$authnum, |
$authdom,$authnum, |
$cdom,$cnum, |
$cdom,$cnum, |
$ENV{'user.domain'}, |
$env{'user.domain'}, |
$ENV{'user.name'}, |
$env{'user.name'}, |
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '. |
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '. |
$trolecode); |
$trolecode); |
unless ($assignresult eq 'ok') { |
unless ($assignresult eq 'ok') { |
Line 205 $swinfo
|
Line 205 $swinfo
|
<form method="post"> |
<form method="post"> |
<input type="hidden" name="selectrole" value="1" /> |
<input type="hidden" name="selectrole" value="1" /> |
<input type="hidden" name="$trolecode" value="1" /> |
<input type="hidden" name="$trolecode" value="1" /> |
<input type="text" size="20" name="newkey" value="$ENV{'form.newkey'}" /> |
<input type="text" size="20" name="newkey" value="$env{'form.newkey'}" /> |
<input type="submit" value="Enter key" /> |
<input type="submit" value="Enter key" /> |
</form> |
</form> |
</body></html> |
</body></html> |
Line 214 ENDENTERKEY
|
Line 214 ENDENTERKEY
|
} |
} |
} |
} |
} |
} |
&Apache::lonnet::log($ENV{'user.domain'}, |
&Apache::lonnet::log($env{'user.domain'}, |
$ENV{'user.name'}, |
$env{'user.name'}, |
$ENV{'user.home'}, |
$env{'user.home'}, |
"Role ".$trolecode); |
"Role ".$trolecode); |
|
|
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
Line 224 ENDENTERKEY
|
Line 224 ENDENTERKEY
|
'request.role.domain' => $cdom, |
'request.role.domain' => $cdom, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |
my $tadv=0; |
my $tadv=0; |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv' => $tadv); |
|
|
|
my $msg=&mt('Entering course ...'); |
my $msg=&mt('Entering course ...'); |
|
|
if (($cnum) && ($role ne 'ca')) { |
if (($cnum) && ($role ne 'ca')) { |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if (($ENV{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
($ENV{'form.orgurl'}!~/^\/adm\/flip/)) { |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
my $dest=$ENV{'form.orgurl'}; |
my $dest=$env{'form.orgurl'}; |
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
&Apache::lonnet::cleanenv(); |
&Apache::lonnet::cleanenv(); |
} |
} |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv'=>$tadv); |
$r->internal_redirect($dest); |
$r->internal_redirect($dest); |
return OK; |
return OK; |
} else { |
} else { |
unless ($ENV{'request.course.id'}) { |
unless ($env{'request.course.id'}) { |
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
"request.course.id" => $cdom.'_'.$cnum); |
"request.course.id" => $cdom.'_'.$cnum); |
$furl='/adm/roles?tryagain=1'; |
$furl='/adm/roles?tryagain=1'; |
Line 250 ENDENTERKEY
|
Line 249 ENDENTERKEY
|
&mt('Could not initialize course at this time.'). |
&mt('Could not initialize course at this time.'). |
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
} |
} |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv('request.role.adv'=>$tadv); |
|
|
# Check to see if the user is a CC entering a course |
# Check to see if the user is a CC entering a course |
# for the first time |
# for the first time |
Line 258 ENDENTERKEY
|
Line 259 ENDENTERKEY
|
$courseid = substr($courseid, 1); |
$courseid = substr($courseid, 1); |
} |
} |
$courseid =~ s/\//_/; |
$courseid =~ s/\//_/; |
if ($role eq 'cc' && $ENV{'course.' . $courseid . |
if ($role eq 'cc' && $env{'course.' . $courseid . |
'.course.helper.not.run'}) { |
'.course.helper.not.run'}) { |
$furl = "/adm/helper/course.initialization.helper"; |
$furl = "/adm/helper/course.initialization.helper"; |
} |
} |
# Send the user to the course they selected |
# Send the user to the course they selected |
&redirect_user($r,&mt('Entering Course'), |
&redirect_user($r,&mt('Entering Course'), |
$furl,$msg, |
$furl,$msg, |
$ENV{'environment.remotenavmap'}); |
$env{'environment.remotenavmap'}); |
return OK; |
return OK; |
} |
} |
} |
} |
Line 274 ENDENTERKEY
|
Line 275 ENDENTERKEY
|
if ($role =~ /^(au|ca)$/) { |
if ($role =~ /^(au|ca)$/) { |
my $redirect_url = '/priv/'; |
my $redirect_url = '/priv/'; |
if ($role eq 'au') { |
if ($role eq 'au') { |
$redirect_url.=$ENV{'user.name'}; |
$redirect_url.=$env{'user.name'}; |
} else { |
} else { |
$where =~ /\/(.*)$/; |
$where =~ /\/(.*)$/; |
$redirect_url .= $1; |
$redirect_url .= $1; |
Line 321 ENDHEADER
|
Line 322 ENDHEADER
|
|
|
# ------------------------------------------ Get Error Message from Environment |
# ------------------------------------------ Get Error Message from Environment |
|
|
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'}); |
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$env{'user.error.msg'}); |
if ($ENV{'user.error.msg'}) { |
if ($env{'user.error.msg'}) { |
$r->log_reason( |
$r->log_reason( |
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
"$msg for $env{'user.name'} domain $env{'user.domain'} access $priv",$fn); |
} |
} |
|
|
# ------------------------------------------------- Can this user re-init, etc? |
# ------------------------------------------------- Can this user re-init, etc? |
|
|
my $advanced=$ENV{'user.adv'}; |
my $advanced=$env{'user.adv'}; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']); |
my $tryagain=$ENV{'form.tryagain'}; |
my $tryagain=$env{'form.tryagain'}; |
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
Line 339 ENDHEADER
|
Line 340 ENDHEADER
|
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<hr><pre>Access : ". |
$r->print("<hr><pre>Access : ". |
Apache::lonnet::plaintext($priv)."\n"); |
Apache::lonnet::plaintext($priv)."\n"); |
$r->print("Resource: $fn\n"); |
$r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n"); |
$r->print("Action : $msg\n</pre><hr>"); |
$r->print("Action : $msg\n</pre><hr>"); |
} else { |
} else { |
if ($ENV{'user.error.msg'}) { |
if ($env{'user.error.msg'}) { |
$r->print( |
$r->print( |
'<h3><font color=red>'. |
'<h3><font color=red>'. |
&mt('You need to choose another user role or enter a specific course for this function').'</font></h3>'); |
&mt('You need to choose another user role or enter a specific course for this function').'</font></h3>'); |
Line 355 ENDHEADER
|
Line 356 ENDHEADER
|
} else { |
} else { |
$r->print("<h2>".&mt('Sorry ...')."</h2>\n". |
$r->print("<h2>".&mt('Sorry ...')."</h2>\n". |
&mt('This resource might be part of')); |
&mt('This resource might be part of')); |
if ($ENV{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$r->print(&mt(' another')); |
$r->print(&mt(' another')); |
} else { |
} else { |
$r->print(&mt(' a certain')); |
$r->print(&mt(' a certain')); |
Line 367 ENDHEADER
|
Line 368 ENDHEADER
|
if ($advanced) { |
if ($advanced) { |
$r->print(&mt("Your home server is "). |
$r->print(&mt("Your home server is "). |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'})}. |
($env{'user.name'},$env{'user.domain'})}. |
"<br />\n"); |
"<br />\n"); |
$r->print(&mt( |
$r->print(&mt( |
"Author and Co-Author roles may not be available on servers other than your home server.")); |
"Author and Co-Author roles may not be available on servers other than your home server.")); |
Line 376 ENDHEADER
|
Line 377 ENDHEADER
|
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
} |
} |
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type="hidden" name="orgurl" value="'.$fn.'" />'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
$r->print('<input type="hidden" name="selectrole" value="1" />'); |
} |
} |
if ($ENV{'user.adv'}) { |
if ($env{'user.adv'}) { |
$r->print( |
$r->print( |
'<br />'.&mt('Show all roles').': <input type="checkbox" name="showall"'); |
'<br /><label>'.&mt('Show all roles').': <input type="checkbox" name="showall"'); |
if ($ENV{'form.showall'}) { $r->print(' checked'); } |
if ($env{'form.showall'}) { $r->print(' checked="checked" '); } |
$r->print('><input type=submit value="'.&mt('Display').'">'); |
$r->print(' /></label><input type="submit" value="'.&mt('Display').'" />'); |
} |
} |
|
|
my (%roletext,%sortrole,%roleclass); |
my (%roletext,%sortrole,%roleclass); |
my $countactive=0; |
my $countactive=0; |
my $inrole=0; |
my $inrole=0; |
my $possiblerole=''; |
my $possiblerole=''; |
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %env) { |
my $button = 1; |
my $button = 1; |
my $switchserver=''; |
my $switchserver=''; |
my $roletext; |
my $roletext; |
Line 409 ENDHEADER
|
Line 410 ENDHEADER
|
if ($tend) { |
if ($tend) { |
$tpend=&Apache::lonlocal::locallocaltime($tend); |
$tpend=&Apache::lonlocal::locallocaltime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($env{'request.role'} eq $trolecode) { |
$tstatus='selected'; |
$tstatus='selected'; |
} |
} |
my $tbg; |
my $tbg; |
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
if (($tstatus eq 'is') || ($tstatus eq 'selected') || |
($ENV{'form.showall'})) { |
($env{'form.showall'})) { |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
$tfont='#003300'; |
$tfont='#003300'; |
Line 463 ENDHEADER
|
Line 464 ENDHEADER
|
$button=0; |
$button=0; |
$switchserver=&Apache::lonnet::escape('http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'/adm/login?domain='.$env{'user.domain'}. |
'&username='.$ENV{'user.name'}. |
'&username='.$env{'user.name'}. |
'&firsturl=/priv/'.$trest.'/'); |
'&firsturl=/priv/'.$trest.'/'); |
} |
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
Line 473 ENDHEADER
|
Line 474 ENDHEADER
|
$twhere=&mt('User').': '.$trest.'<br />'.&mt('Domain'). |
$twhere=&mt('User').': '.$trest.'<br />'.&mt('Domain'). |
': '.$tdom.'<br />'. |
': '.$tdom.'<br />'. |
' '.&mt('Server').': '.$home; |
' '.&mt('Server').': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$env{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/'); |
$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/'); |
$sortkey=$role."$trest:$tdom"; |
$sortkey=$role."$trest:$tdom"; |
} elsif ($role eq 'au') { |
} elsif ($role eq 'au') { |
# Authors |
# Authors |
my $home = &Apache::lonnet::homeserver |
my $home = &Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'}); |
($env{'user.name'},$env{'user.domain'}); |
my $allowed=0; |
my $allowed=0; |
my @ids=&Apache::lonnet::current_machine_ids(); |
my @ids=&Apache::lonnet::current_machine_ids(); |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
Line 487 ENDHEADER
|
Line 488 ENDHEADER
|
$button=0; |
$button=0; |
$switchserver=&Apache::lonnet::escape('http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'/adm/login?domain='.$env{'user.domain'}. |
'&username='.$ENV{'user.name'}. |
'&username='.$env{'user.name'}. |
'&firsturl=/priv/'.$ENV{'user.name'}.'/'); |
'&firsturl=/priv/'.$env{'user.name'}.'/'); |
} |
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
$ttype='Construction Space'; |
$ttype='Construction Space'; |
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server'). |
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server'). |
': '.$home; |
': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$env{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$ENV{'user.name'}.'/'); |
$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$env{'user.name'}.'/'); |
$sortkey=$role; |
$sortkey=$role; |
} elsif ($trest) { |
} elsif ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
Line 505 ENDHEADER
|
Line 506 ENDHEADER
|
$ttype.='<br>'.&mt('Section/Group').': '.$tsection; |
$ttype.='<br>'.&mt('Section/Group').': '.$tsection; |
} |
} |
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($env{'course.'.$tcourseid.'.description'}) { |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$env{'course.'.$tcourseid.'.description'}; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
unless ($twhere eq &mt('Currently not available')) { |
unless ($twhere eq &mt('Currently not available')) { |
$twhere.=' <font size="-2">'. |
$twhere.=' <font size="-2">'. |
Line 524 ENDHEADER
|
Line 525 ENDHEADER
|
'</font>'; |
'</font>'; |
} else { |
} else { |
$twhere=&mt('Currently not available'); |
$twhere=&mt('Currently not available'); |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
} |
} |
} |
} |
Line 557 ENDHEADER
|
Line 558 ENDHEADER
|
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |
return OK; |
return OK; |
# Is there only one choice? |
# Is there only one choice? |
} elsif (($countactive==1) && ($ENV{'request.role'} eq 'cm')) { |
} elsif (($countactive==1) && ($env{'request.role'} eq 'cm')) { |
$r->print('<h3>'.&mt('Please stand by.').'</h3>'. |
$r->print('<h3>'.&mt('Please stand by.').'</h3>'. |
'<input type="hidden" name="'.$possiblerole.'" value="1" />'); |
'<input type="hidden" name="'.$possiblerole.'" value="1" />'); |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
Line 587 ENDHEADER
|
Line 588 ENDHEADER
|
if ($haverole) { $doheaders++; } |
if ($haverole) { $doheaders++; } |
} |
} |
|
|
if ($ENV{'environment.recentroles'}) { |
if ($env{'environment.recentroles'}) { |
my %recent_roles = |
my %recent_roles = |
&Apache::lonhtmlcommon::get_recent('roles',$ENV{'environment.recentrolesn'}); |
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'}); |
my $output=''; |
my $output=''; |
foreach (sort(keys(%recent_roles))) { |
foreach (sort(keys(%recent_roles))) { |
if (defined($roletext{'user.role.'.$_})) { |
if (defined($roletext{'user.role.'.$_})) { |
Line 605 ENDHEADER
|
Line 606 ENDHEADER
|
&mt('Recent Roles')."</td>"); |
&mt('Recent Roles')."</td>"); |
$r->print($output); |
$r->print($output); |
$r->print("</tr>"); |
$r->print("</tr>"); |
|
$doheaders ++; |
} |
} |
} |
} |
|
|
Line 634 ENDHEADER
|
Line 636 ENDHEADER
|
} |
} |
my $tremark=''; |
my $tremark=''; |
my $tfont='#003300'; |
my $tfont='#003300'; |
if ($ENV{'request.role'} eq 'cm') { |
if ($env{'request.role'} eq 'cm') { |
$r->print('<tr bgcolor="#11CC55">'); |
$r->print('<tr bgcolor="#11CC55">'); |
$tremark=&mt('Currently selected. '); |
$tremark=&mt('Currently selected. '); |
$tfont='#002200'; |
$tfont='#002200'; |
Line 642 ENDHEADER
|
Line 644 ENDHEADER
|
$r->print('<tr bgcolor="#77FF77">'); |
$r->print('<tr bgcolor="#77FF77">'); |
} |
} |
unless ($nochoose) { |
unless ($nochoose) { |
if ($ENV{'request.role'} ne 'cm') { |
if ($env{'request.role'} ne 'cm') { |
$r->print('<td><input type=submit value="'. |
$r->print('<td><input type=submit value="'. |
&mt('Select').'" name="cm"></td>'); |
&mt('Select').'" name="cm"></td>'); |
} else { |
} else { |
Line 658 ENDHEADER
|
Line 660 ENDHEADER
|
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
# ------------------------------------------------------------ Privileges Info |
# ------------------------------------------------------------ Privileges Info |
if (($advanced) && (($ENV{'user.error.msg'}) || ($error))) { |
if (($advanced) && (($env{'user.error.msg'}) || ($error))) { |
$r->print('<hr><h2>Current Privileges</h2>'); |
$r->print('<hr><h2>Current Privileges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %env) { |
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) { |
if ($envkey=~/^user\.priv\.$env{'request.role'}\./) { |
my $where=$envkey; |
my $where=$envkey; |
$where=~s/^user\.priv\.$ENV{'request.role'}\.//; |
$where=~s/^user\.priv\.$env{'request.role'}\.//; |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tdom,$trest,$tsec)= |
my ($tdom,$trest,$tsec)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
if ($ENV{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') { |
if ($env{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') { |
$ttype='Construction Space'; |
$ttype='Construction Space'; |
$twhere='User: '.$trest.', Domain: '.$tdom; |
$twhere='User: '.$trest.', Domain: '.$tdom; |
} else { |
} else { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
$twhere=$env{'course.'.$tdom.'_'.$trest.'.description'}; |
if ($tsec) { |
if ($tsec) { |
$twhere.=' (Section/Group: '.$tsec.')'; |
$twhere.=' (Section/Group: '.$tsec.')'; |
} |
} |
Line 688 ENDHEADER
|
Line 690 ENDHEADER
|
$twhere='/'; |
$twhere='/'; |
} |
} |
$r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>'); |
$r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>'); |
foreach (sort split(/:/,$ENV{$envkey})) { |
foreach (sort split(/:/,$env{$envkey})) { |
if ($_) { |
if ($_) { |
my ($prv,$restr)=split(/\&/,$_); |
my ($prv,$restr)=split(/\&/,$_); |
my $trestr=''; |
my $trestr=''; |
Line 724 ENDHEADER
|
Line 726 ENDHEADER
|
sub role_status { |
sub role_status { |
my ($rolekey,$then,$now,$role,$where,$trolecode,$tstatus,$tstart,$tend) = @_; |
my ($rolekey,$then,$now,$role,$where,$trolecode,$tstatus,$tstart,$tend) = @_; |
my @pwhere = (); |
my @pwhere = (); |
if (exists($ENV{$rolekey}) && $ENV{$rolekey} ne '') { |
if (exists($env{$rolekey}) && $env{$rolekey} ne '') { |
(undef,undef,$$role,@pwhere)=split(/\./,$rolekey); |
(undef,undef,$$role,@pwhere)=split(/\./,$rolekey); |
unless (!defined($$role) || $$role eq '') { |
unless (!defined($$role) || $$role eq '') { |
$$where=join('.',@pwhere); |
$$where=join('.',@pwhere); |
$$trolecode=$$role.'.'.$$where; |
$$trolecode=$$role.'.'.$$where; |
($$tstart,$$tend)=split(/\./,$ENV{$rolekey}); |
($$tstart,$$tend)=split(/\./,$env{$rolekey}); |
$$tstatus='is'; |
$$tstatus='is'; |
if ($$tstart && $$tstart>$then) { |
if ($$tstart && $$tstart>$then) { |
$$tstatus='future'; |
$$tstatus='future'; |
Line 789 sub build_roletext {
|
Line 791 sub build_roletext {
|
|
|
sub check_privs { |
sub check_privs { |
my ($cckey,$then,$now) = @_; |
my ($cckey,$then,$now) = @_; |
if ($ENV{$cckey}) { |
if ($env{$cckey}) { |
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont); |
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont); |
&role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend); |
&role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend); |
unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) { |
unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) { |
Line 803 sub check_privs {
|
Line 805 sub check_privs {
|
sub check_fordc { |
sub check_fordc { |
my ($dcroles,$then) = @_; |
my ($dcroles,$then) = @_; |
my $numdc = 0; |
my $numdc = 0; |
if ($ENV{'user.adv'}) { |
if ($env{'user.adv'}) { |
foreach my $envkey (sort keys %ENV) { |
foreach my $envkey (sort keys %env) { |
if ($envkey=~/^user\.role\.dc\.\/(\w+)\/$/) { |
if ($envkey=~/^user\.role\.dc\.\/(\w+)\/$/) { |
my $dcdom = $1; |
my $dcdom = $1; |
my $livedc = 1; |
my $livedc = 1; |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my ($tstart,$tend)=split(/\./,$env{$envkey}); |
if ($tstart && $tstart>$then) { $livedc = 0; } |
if ($tstart && $tstart>$then) { $livedc = 0; } |
if ($tend && $tend <$then) { $livedc = 0; } |
if ($tend && $tend <$then) { $livedc = 0; } |
if ($livedc) { |
if ($livedc) { |
Line 848 function verifyCoursePick(caller) {
|
Line 850 function verifyCoursePick(caller) {
|
} |
} |
} |
} |
else { |
else { |
alert("You must use the 'Select Course' link to open a separate pick course window which you can use to select the course you wish to enter"); |
alert("Please use the 'Select Course' link to open a separate pick course window where you may select the course you wish to enter."); |
} |
} |
} |
} |
else { |
else { |
Line 905 END
|
Line 907 END
|
sub display_cc_role { |
sub display_cc_role { |
my $rolekey = shift; |
my $rolekey = shift; |
my $roletext; |
my $roletext; |
my $advanced = $ENV{'user.adv'}; |
my $advanced = $env{'user.adv'}; |
my $tryagain = $ENV{'form.tryagain'}; |
my $tryagain = $env{'form.tryagain'}; |
unless ($rolekey =~/^error\:/) { |
unless ($rolekey =~/^error\:/) { |
if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) { |
if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) { |
my $tcourseid = $1.'_'.$2; |
my $tcourseid = $1.'_'.$2; |
Line 923 sub display_cc_role {
|
Line 925 sub display_cc_role {
|
'</font>'; |
'</font>'; |
} else { |
} else { |
$twhere=&mt('Currently not available'); |
$twhere=&mt('Currently not available'); |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
$twhere.="<br />".&mt('Domain').":".$1; |
$twhere.="<br />".&mt('Domain').":".$1; |
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,''); |
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,''); |
Line 962 sub set_privileges {
|
Line 964 sub set_privileges {
|
my $area = '/'.$dcdom.'/'.$pickedcourse; |
my $area = '/'.$dcdom.'/'.$pickedcourse; |
my $role = 'cc'; |
my $role = 'cc'; |
my $spec = $role.'.'.$area; |
my $spec = $role.'.'.$area; |
my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$ENV{'user.name'}); |
my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'}); |
my %ccrole = (); |
my %ccrole = (); |
&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area); |
&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area); |
my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole); |
my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole); |
Line 973 sub set_privileges {
|
Line 975 sub set_privileges {
|
$newccroles{$key} = $val; |
$newccroles{$key} = $val; |
} |
} |
&Apache::lonnet::appenv(%newccroles); |
&Apache::lonnet::appenv(%newccroles); |
&Apache::lonnet::log($ENV{'user.domain'}, |
&Apache::lonnet::log($env{'user.domain'}, |
$ENV{'user.name'}, |
$env{'user.name'}, |
$ENV{'user.home'}, |
$env{'user.home'}, |
"Role ".$role); |
"Role ".$role); |
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
'request.role' => $role, |
'request.role' => $role, |