loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.282, 2013/04/03 20:46:55	version 1.283, 2013/05/06 16:16:03
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 523 ENDENTERKEY	Line 524 ENDENTERKEY
&Apache::lonnet::put('nohist_crslastlogin',	&Apache::lonnet::put('nohist_crslastlogin',
{$env{'user.name'}.':'.$env{'user.domain'}.	{$env{'user.name'}.':'.$env{'user.domain'}.
':'.$csec.':'.$role => $now},$cdom,$cnum);	':'.$csec.':'.$role => $now},$cdom,$cnum);
	my $feeds;
	&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
	&Apache::lonnet::appenv(
	{'course.'.$cdom.'_'.$cnum.'.feeds' => $feeds}
	);
}	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/)) {