loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.240.2.9, 2010/01/15 05:30:21	version 1.240.2.11, 2010/01/16 19:57:01
Line 723 ENDHEADER	Line 723 ENDHEADER

$refresh = $now;	$refresh = $now;
&Apache::lonnet::appenv({'user.refresh.time' => $refresh});	&Apache::lonnet::appenv({'user.refresh.time' => $refresh});
	if (!$countactive && !$countfuture) {
	if (&Apache::loncommon::new_roles_update()) {
	($countactive,$countfuture,$inrole,$possiblerole) =
	&gather_roles($then,$refresh,$now,$reinit,$nochoose,\%roletext,\%sortrole,
	\%roleclass,\%futureroles,\%timezones);
	}
	}
if ($custommenu) {	if ($custommenu) {
if ($env{'form.destinationurl'} eq '/adm/gci_info') {	if ($env{'form.destinationurl'} eq '/adm/gci_info') {
$r->print(&gci_info_page()).	$r->print(&gci_info_page()).
Line 735 ENDHEADER	Line 742 ENDHEADER
my $numcourses = keys(%courses);	my $numcourses = keys(%courses);
my $switcher;	my $switcher;
if ($numcourses > 0) {	if ($numcourses > 0) {
$switcher = &Apache::lonmainmenu::gcitest_switcher(%courses);	$switcher = &Apache::lonmainmenu::gcitest_switcher('cc',%courses);
my $current;	my $current;
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}.	$current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}.