Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.280 and 1.284

version 1.280, 2013/01/01 03:45:13	version 1.284, 2013/05/09 05:24:42
Line 139 use Apache::lonpageflip();	Line 139 use Apache::lonpageflip();
use Apache::lonnavdisplay();	use Apache::lonnavdisplay();
use Apache::loncoursequeueadmin;	use Apache::loncoursequeueadmin;
use Apache::longroup;	use Apache::longroup;
	use Apache::lonrss;
use GDBM_File;	use GDBM_File;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use HTML::Entities;	use HTML::Entities;
Line 518 ENDENTERKEY	Line 519 ENDENTERKEY
my $msg;	my $msg;
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
unless (($ferr) \|\| ($env{'form.switchrole'}) \|\|	unless ($ferr) {
($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {	unless (($env{'form.switchrole'}) \|\|
&Apache::lonnet::put('nohist_crslastlogin',	($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
{$env{'user.name'}.':'.$env{'user.domain'}.	&Apache::lonnet::put('nohist_crslastlogin',
':'.$csec.':'.$role => $now},$cdom,$cnum);	{$env{'user.name'}.':'.$env{'user.domain'}.
	':'.$csec.':'.$role => $now},$cdom,$cnum);
	}
	my ($feeds,$syllabus_time);
	&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
	&Apache::lonnet::appenv({'request.course.feeds' => $feeds});
	unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {
	unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) \|\|
	($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {
	my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
	$syllabus_time = $syllabus{'uploaded.lastmodified'};
	if ($syllabus_time) {
	&Apache::lonnet::appenv({'request.course.syllabustime' => $syllabus_time});
	}
	}
	}
}	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/)) {
Line 611 ENDENTERKEY	Line 627 ENDENTERKEY
}	}
if (($checkenc) && ($destsymb ne '')) {	if (($checkenc) && ($destsymb ne '')) {
my ($encstate,$unencsymb,$res);	my ($encstate,$unencsymb,$res);
my $unencsymb = &Apache::lonnet::symbclean($destsymb);	$unencsymb = &Apache::lonnet::symbclean($destsymb);
(undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb);	(undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb);
&Apache::lonnet::symbverify($unencsymb,$res,\$encstate);	&Apache::lonnet::symbverify($unencsymb,$res,\$encstate);
if ($encstate) {	if ($encstate) {
Line 2152 sub update_session_roles {	Line 2168 sub update_session_roles {
my $status_in_db =	my $status_in_db =
&curr_role_status($tstart,$tend,$refresh,$now);	&curr_role_status($tstart,$tend,$refresh,$now);
my ($rdummy,$rest) = split(/\//,$role,2);	my ($rdummy,$rest) = split(/\//,$role,2);
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
my %currpriv;	my %currpriv;
unless (exists($crprivs{$rest})) {	unless (exists($crprivs{$rest})) {
my ($rdomain,$rauthor,$rrole)=split(/\//,$rest);	my ($rdomain,$rauthor,$rrole)=split(/\//,$rest);
Line 2406 sub update_session_roles {	Line 2421 sub update_session_roles {
}	}
$groupmsg .= '<li><b>'.	$groupmsg .= '<li><b>'.
$env{'course.'.$cdom.'_'.$cnum.'.description'}.'</b><ul>';	$env{'course.'.$cdom.'_'.$cnum.'.description'}.'</b><ul>';
	$currcrs = $cdom.'_'.$cnum;
}	}
my ($cdom,$cnum) = split(/\//,$1);
my $group = $2;
my $groupdesc;	my $groupdesc;
unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {	unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
%{$curr_groups{$cdom.'_'.$cnum}} =	%{$curr_groups{$cdom.'_'.$cnum}} =
Line 2547 sub role_desc {	Line 2561 sub role_desc {
my ($item,$update,$refresh,$now) = @_;	my ($item,$update,$refresh,$now) = @_;
my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,	my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,
$trole,$tremark);	$trole,$tremark);
&Apache::lonnet::role_status('user.role.'.$item,$update,$refresh, $now,\$role,\$where, \$trolecode,	&Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
	$now,\$role,\$where,\$trolecode,
\$tstatus,\$tstart,\$tend);	\$tstatus,\$tstart,\$tend);
if ($role =~ /^cr\//) {	if ($role =~ /^cr\//) {
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);	my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.280
changed lines
	Added in v.1.284