version 1.64, 2003/07/25 01:16:29
|
version 1.77, 2003/11/11 00:54:57
|
Line 51 use Apache::File();
|
Line 51 use Apache::File();
|
use Apache::lonmenu; |
use Apache::lonmenu; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonannounce; |
use Apache::lonannounce; |
|
use Apache::lonlocal; |
|
|
sub redirect_user { |
sub redirect_user { |
my ($r,$title,$url,$msg) = @_; |
my ($r,$title,$url,$msg) = @_; |
$msg = $title if (! defined($msg)); |
$msg = $title if (! defined($msg)); |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
Line 130 sub handler {
|
Line 131 sub handler {
|
# student attempts to register a new key |
# student attempts to register a new key |
} else { |
} else { |
# print form to enter a new key |
# print form to enter a new key |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
Line 164 ENDENTERKEY
|
Line 165 ENDENTERKEY
|
'request.role.adv' => $tadv, |
'request.role.adv' => $tadv, |
'request.role.domain' => $cdom, |
'request.role.domain' => $cdom, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |
my $msg='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/)) { |
$r->internal_redirect($ENV{'form.orgurl'}); |
my $dest=$ENV{'form.orgurl'}; |
|
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
|
&Apache::lonnet::cleanenv(); |
|
} |
|
$r->internal_redirect($dest); |
return OK; |
return OK; |
} else { |
} else { |
unless ($ENV{'request.course.id'}) { |
unless ($ENV{'request.course.id'}) { |
Line 179 ENDENTERKEY
|
Line 184 ENDENTERKEY
|
"request.course.id" => $cdom.'_'.$cnum); |
"request.course.id" => $cdom.'_'.$cnum); |
$furl='/adm/roles?tryagain=1'; |
$furl='/adm/roles?tryagain=1'; |
$msg= |
$msg= |
'<h1><font color=red>Could not initialize course at this time.</font></h1><h3>Please try again.</h3>'; |
'<h1><font color=red>'. |
|
&mt('Could not initialize course at this time.'). |
|
'</font></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
} |
} |
|
|
# Check to see if the user is a CC entering a course |
# Check to see if the user is a CC entering a course |
Line 223 ENDENTERKEY
|
Line 230 ENDENTERKEY
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&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; |
Line 270 ENDHEADER
|
Line 277 ENDHEADER
|
} else { |
} else { |
if ($ENV{'user.error.msg'}) { |
if ($ENV{'user.error.msg'}) { |
$r->print( |
$r->print( |
'<h3><font color=red>You need to choose another user role or '. |
'<h3><font color=red>'. |
'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>'); |
} |
} |
} |
} |
# -------------------------------------------------------- Choice or no choice? |
# -------------------------------------------------------- Choice or no choice? |
if ($nochoose) { |
if ($nochoose) { |
if ($advanced) { |
if ($advanced) { |
$r->print("<h2>Assigned User Roles</h2>\n"); |
$r->print("<h2>".&mt('Assigned User Roles')."</h2>\n"); |
} else { |
} else { |
$r->print("<h2>Sorry ...</h2>\nThis resource might be part of"); |
$r->print("<h2>".&mt('Sorry ...')."</h2>\n". |
|
&mt('This resource might be part of')); |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
$r->print(' another'); |
$r->print(&mt(' another')); |
} else { |
} else { |
$r->print(' a certain'); |
$r->print(&mt(' a certain')); |
} |
} |
$r->print(' course.</body></html>'); |
$r->print(&mt(' course.').'</body></html>'); |
return OK; |
return OK; |
} |
} |
} else { |
} else { |
if ($advanced) { |
if ($advanced) { |
$r->print("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("Author and Co-Author roles may not be available on ". |
$r->print(&mt( |
"servers other than your home server."); |
"Author and Co-Author roles may not be available on servers other than your home server.")); |
} else { |
} else { |
$r->print("<h2>Select a Course to Enter</h2>\n"); |
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n"); |
} |
} |
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
Line 308 ENDHEADER
|
Line 316 ENDHEADER
|
} |
} |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
$r->print( |
$r->print( |
'<br />Show all roles: <input type="checkbox" name="showall"'); |
'<br />'.&mt('Show all roles').': <input type="checkbox" name="showall"'); |
if ($ENV{'form.showall'}) { $r->print(' checked'); } |
if ($ENV{'form.showall'}) { $r->print(' checked'); } |
$r->print('><input type=submit value="Display">'); |
$r->print('><input type=submit value="'.&mt('Display').'">'); |
} |
} |
# ----------------------------------------------------------------------- Table |
# ----------------------------------------------------------------------- Table |
$r->print('<br /><table><tr>'); |
$r->print('<br /><table><tr>'); |
unless ($nochoose) { $r->print('<th> </th>'); } |
unless ($nochoose) { $r->print('<th> </th>'); } |
$r->print('<th>User Role</th><th colspan=2>Extent</th>'. |
$r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent'). |
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'. |
|
&mt('Remark').'</th></tr>'."\n"); |
|
|
|
my (%roletext,%sortrole,%roleclass); |
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
my $button = 1; |
my $button = 1; |
my $switchserver=''; |
my $switchserver=''; |
|
my $roletext; |
|
my $sortkey; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
next if (!defined($role) || $role eq ''); |
next if (!defined($role) || $role eq ''); |
Line 337 ENDHEADER
|
Line 349 ENDHEADER
|
$tstatus='future'; |
$tstatus='future'; |
if ($tstart<$now) { $tstatus='will'; } |
if ($tstart<$now) { $tstatus='will'; } |
} |
} |
$tpstart=localtime($tstart); |
$tpstart=&Apache::lonlocal::locallocaltime($tstart); |
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { |
if ($tend<$then) { |
Line 345 ENDHEADER
|
Line 357 ENDHEADER
|
} elsif ($tend<$now) { |
} elsif ($tend<$now) { |
$tstatus='will_not'; |
$tstatus='will_not'; |
} |
} |
$tpend=localtime($tend); |
$tpend=&Apache::lonlocal::locallocaltime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($ENV{'request.role'} eq $trolecode) { |
$tstatus='selected'; |
$tstatus='selected'; |
Line 361 ENDHEADER
|
Line 373 ENDHEADER
|
$button=0; |
$button=0; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
$tbg='#FFAA77'; |
$tbg='#FFAA77'; |
$tremark.='Active at next login. '; |
$tremark.=&mt('Active at next login. '); |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
$tfont='#330000'; |
$tfont='#330000'; |
$button=0; |
$button=0; |
} elsif ($tstatus eq 'will_not') { |
} elsif ($tstatus eq 'will_not') { |
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tremark.='Expired after logout. '; |
$tremark.=&mt('Expired after logout. '); |
} elsif ($tstatus eq 'selected') { |
} elsif ($tstatus eq 'selected') { |
$tbg='#11CC55'; |
$tbg='#11CC55'; |
$tfont='#002200'; |
$tfont='#002200'; |
$tremark.='Currently selected. '; |
$tremark.=&mt('Currently selected. '); |
} |
} |
my $trole; |
my $trole; |
if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role); |
$tremark.='<br>Defined by '.$rauthor.' at '.$rdomain.'.'; |
$tremark.='<br>'.&mt('Defined by ').$rauthor. |
|
&mt(' at ').$rdomain.'.'; |
$trole=$rrole; |
$trole=$rrole; |
} else { |
} else { |
$trole=Apache::lonnet::plaintext($role); |
$trole=Apache::lonnet::plaintext($role); |
Line 399 ENDHEADER
|
Line 412 ENDHEADER
|
} |
} |
#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=&mt('Construction Space'); |
$twhere='User: '.$trest.'<br />Domain: '.$tdom.'<br />'. |
$twhere=&mt('User').': '.$trest.'<br />'.&mt('Domain'). |
' Server: '.$home; |
': '.$tdom.'<br />'. |
|
' '.&mt('Server').': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
$sortkey=$role."$trest:$tdom"; |
} elsif ($role eq 'au') { |
} elsif ($role eq 'au') { |
# Authors |
# Authors |
my $home = &Apache::lonnet::homeserver |
my $home = &Apache::lonnet::homeserver |
Line 417 ENDHEADER
|
Line 432 ENDHEADER
|
} |
} |
#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=&mt('Construction Space'); |
$twhere='Domain: '.$tdom.'<br />Server: '.$home; |
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server'). |
|
': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
$sortkey=$role; |
} elsif ($trest) { |
} elsif ($trest) { |
$ttype='Course'; |
$ttype=&mt('Course'); |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>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'}; |
unless ($twhere eq 'Currently not available') { |
$sortkey=$tdom."\0".$twhere."\0".$envkey; |
|
unless ($twhere eq &mt('Currently not available')) { |
$twhere.=' <font size="-2">'. |
$twhere.=' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
'</font>'; |
'</font>'; |
} |
} |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription |
my %newhash=Apache::lonnet::coursedescription |
($tcourseid); |
($tcourseid); |
if (%newhash) { |
if (%newhash) { |
|
$sortkey=$tdom."\0".$newhash{'description'}. |
|
"\0".$envkey; |
$twhere=$newhash{'description'}. |
$twhere=$newhash{'description'}. |
' <font size="-2">'. |
' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper('Syllabus',$trest,$tdom,$tfont). |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
'</font>'; |
'</font>'; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere=&mt('Currently not available'); |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
|
$sortkey=$tdom."\0".$twhere."\0".$envkey; |
} |
} |
} |
} |
if ($role ne 'st') { $twhere.="<br />Domain:".$tdom; } |
if ($role ne 'st') { $twhere.="<br />".&mt('Domain').":".$tdom; } |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype=&mt('Domain'); |
$twhere=$tdom; |
$twhere=$tdom; |
|
$sortkey=$role.$twhere; |
} else { |
} else { |
$ttype='System'; |
$ttype=&mt('System'); |
$twhere='system wide'; |
$twhere=&mt('system wide'); |
|
$sortkey=$role.$twhere; |
} |
} |
|
|
$r->print('<tr bgcolor='.$tbg.'>'); |
$roletext.='<tr bgcolor='.$tbg.'>'; |
unless ($nochoose) { |
unless ($nochoose) { |
if (!$button) { |
if (!$button) { |
if ($switchserver) { |
if ($switchserver) { |
$r->print('<td><a href="/adm/logout?handover='. |
$roletext.='<td><a href="/adm/logout?handover='. |
$switchserver.'">Switch Server</a></td>'); |
$switchserver.'">'.&mt('Switch Server').'</a></td>'; |
} else { |
} else { |
$r->print('<td> </td>'); |
$roletext.=('<td> </td>'); |
} |
} |
} elsif ($tstatus eq 'is') { |
} elsif ($tstatus eq 'is') { |
$r->print('<td><input type=submit value=Select name="'. |
$roletext.=('<td><input type=submit value="'. |
|
&mt('Select').'" name="'. |
$trolecode.'"></td>'); |
$trolecode.'"></td>'); |
} elsif ($tryagain) { |
} elsif ($tryagain) { |
$r->print |
$roletext.= |
('<td><input type=submit value="Try Selecting Again"'. |
'<td><input type=submit value="'. |
' name="'.$trolecode.'"></td>'); |
&mt('Try Selecting Again').'" name="'.$trolecode.'"></td>'; |
} elsif ($advanced) { |
} elsif ($advanced) { |
$r->print |
$roletext.= |
('<td><input type=submit value="Re-Initialize"'. |
'<td><input type=submit value="'. |
' name="'.$trolecode.'"></td>'); |
&mt('Re-Initialize').'" name="'.$trolecode.'"></td>'; |
} else { |
} else { |
$r->print('<td> </td>'); |
$roletext.='<td> </td>'; |
} |
} |
} |
} |
$tremark.=&Apache::lonannounce::showday(time,1, |
$tremark.=&Apache::lonannounce::showday(time,1, |
&Apache::lonannounce::readcalendar($tdom.'_'.$trest)); |
&Apache::lonannounce::readcalendar($tdom.'_'.$trest)); |
|
|
$r->print('<td><font color="'.$tfont.'">'.$trole. |
$roletext.='<td><font color="'.$tfont.'">'.$trole. |
'</font></td><td><font color="'.$tfont.'">'.$ttype. |
'</font></td><td><font color="'.$tfont.'">'.$ttype. |
'</font></td><td><font color="'.$tfont.'">'.$twhere. |
'</font></td><td><font color="'.$tfont.'">'.$twhere. |
'</font></td><td><font color="'.$tfont.'">'.$tpstart. |
'</font></td><td><font color="'.$tfont.'">'.$tpstart. |
'</font></td><td><font color="'.$tfont.'">'.$tpend. |
'</font></td><td><font color="'.$tfont.'">'.$tpend. |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
' </font></td></tr>'."\n"); |
' </font></td></tr>'."\n"; |
|
$roletext{$envkey}=$roletext; |
|
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;} |
|
$sortrole{$sortkey}=$envkey; |
|
$roleclass{$envkey}=$ttype; |
} |
} |
} |
} |
} |
} |
|
my $doheaders=-1; |
|
foreach my $type (&mt('Construction Space'),&mt('Course'), |
|
&mt('Domain'),&mt('System')) { |
|
my $haverole=0; |
|
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
|
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
|
$haverole=1; |
|
} |
|
} |
|
if ($haverole) { $doheaders++; } |
|
} |
|
foreach my $type (&mt('Construction Space'),&mt('Course'), |
|
&mt('Domain'),&mt('System')) { |
|
my $output; |
|
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { |
|
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { |
|
$output.=$roletext{$sortrole{$which}}; |
|
} |
|
} |
|
if ($output) { |
|
if ($doheaders > 0) { |
|
$r->print("<tr bgcolor='#BBffBB'>". |
|
"<td align='center' colspan='7'>$type</td>"); |
|
} |
|
$r->print($output); |
|
} |
|
} |
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='Currently selected.'; |
$tremark=&mt('Currently selected. '); |
$tfont='#002200'; |
$tfont='#002200'; |
} else { |
} else { |
$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=Select name="cm"></td>'); |
$r->print('<td><input type=submit value="'. |
|
&mt('Select').'" name="cm"></td>'); |
} else { |
} else { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
} |
} |
$r->print('<td colspan=5><font color="'.$tfont.'">No role specified'. |
$r->print('<td colspan=5><font color="'.$tfont.'">'.&mt('No role specified'). |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
'</font></td><td><font color="'.$tfont.'">'.$tremark. |
' </font></td></tr>'."\n"); |
' </font></td></tr>'."\n"); |
|
|
Line 570 ENDHEADER
|
Line 626 ENDHEADER
|
} |
} |
} |
} |
} |
} |
|
$r->print(&Apache::lonnet::getannounce()); |
|
if ($advanced) { |
|
$r->print('<p><small><i>This is LON-CAPA '. |
|
$r->dir_config('lonVersion').'</i></small></p>'); |
|
} |
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
return OK; |
return OK; |
} |
} |