loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.26 and 1.30

version 1.26, 2001/06/02 16:14:40	version 1.30, 2001/10/31 17:47:55
Line 9	Line 9
# 12/08,12/28,	# 12/08,12/28,
# 01/15/01 Gerd Kortemeyer	# 01/15/01 Gerd Kortemeyer
# 02/27/01 Scott Harrison	# 02/27/01 Scott Harrison
# 03/02,05/03,05/25,05/30,06/01 Gerd Kortemeyer	# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer

package Apache::lonroles;	package Apache::lonroles;

Line 19 use Apache::lonuserstate();	Line 19 use Apache::lonuserstate();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File();	use Apache::File();
use Apache::lonmenu;	use Apache::lonmenu;
	use Apache::loncommon;

sub handler {	sub handler {

Line 59 sub handler {	Line 60 sub handler {
my ($cdom,$cnum,$csec)=split(/\//,$where);	my ($cdom,$cnum,$csec)=split(/\//,$where);
&Apache::lonnet::appenv('request.role' => $trolecode,	&Apache::lonnet::appenv('request.role' => $trolecode,
'request.course.sec' => $csec);	'request.course.sec' => $csec);
	my $msg='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);
Line 67 sub handler {	Line 69 sub handler {
$r->internal_redirect($ENV{'form.orgurl'});	$r->internal_redirect($ENV{'form.orgurl'});
return OK;	return OK;
} else {	} else {
	unless ($ENV{'request.course.id'}) {
	&Apache::lonnet::appenv(
	"request.course.id" => $cdom.'_'.$cnum);
	$furl='/adm/notfound.html';
	$msg=
	'<h1><font color=red>Could not initialize top-level map.</font></h1>';
	}
$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;
print (<<ENDREDIR);	print (<<ENDREDIR);
Line 79 sub handler {	Line 89 sub handler {
<script>	<script>
$swinfo	$swinfo
</script>	</script>
Entering course ...	$msg
</body>	</body>
</html>	</html>
ENDREDIR	ENDREDIR
Line 96 ENDREDIR	Line 106 ENDREDIR
# =============================================================== No Roles Init	# =============================================================== No Roles Init

$r->content_type('text/html');	$r->content_type('text/html');
	&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;

my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;

$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
Line 173 ENDHEADER	Line 183 ENDHEADER
$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>');
}	}
	$r->print('<br>Show all roles: <input type=checkbox name=showall');
	if ($ENV{'form.showall'}) { $r->print(' checked'); }
	$r->print('><input type=submit value="Display"><br>');
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table
$r->print('<table><tr>');	$r->print('<table><tr>');
unless ($nochoose) { $r->print('<th> </th>'); }	unless ($nochoose) { $r->print('<th> </th>'); }
Line 208 ENDHEADER	Line 221 ENDHEADER
$tstatus='selected';	$tstatus='selected';
}	}
my $tbg;	my $tbg;
	if (($tstatus eq 'is') \|\| ($tstatus eq 'selected') \|\|
	($ENV{'form.showall'})) {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$tbg='#77FF77';	$tbg='#77FF77';
} elsif ($tstatus eq 'future') {	} elsif ($tstatus eq 'future') {
Line 272 ENDHEADER	Line 287 ENDHEADER
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$r->print('<td><input type=submit value=Select name="'.	$r->print('<td><input type=submit value=Select name="'.
$trolecode.'"></td>');	$trolecode.'"></td>');
	} elsif ($ENV{'user.adv'}) {
	$r->print(
	'<td><input type=submit value="Re-Initialize" name="'.
	$trolecode.'"></td>');
} else {	} else {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
Line 280 ENDHEADER	Line 299 ENDHEADER
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart.	$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart.
'</td><td>'.$tpend.	'</td><td>'.$tpend.
'</td><td>'.$tremark.' </td></tr>'."\n");	'</td><td>'.$tremark.' </td></tr>'."\n");
	}
}	}
}	}
my $tremark='';	my $tremark='';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.26
changed lines
	Added in v.1.30