loncom/interface/lontiny.pm - diff

Return to lontiny.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2022/07/02 19:55:15	version 1.16, 2022/07/08 03:05:18
Line 250 sub handler {	Line 250 sub handler {
$destination .= '&ttoken='.$env{'form.ttoken'};	$destination .= '&ttoken='.$env{'form.ttoken'};
}	}
&do_redirect($r,$destination,$linkprot);	&do_redirect($r,$destination,$linkprot);
} elsif (keys(%possroles) > 1) {	} elsif (@allposs > 1) {
if (grep(/^(cc\|co)$/,@allposs)) {	if (grep(/^(cc\|co)$/,@allposs)) {
my $newrole;	my $newrole;
if (exists($possroles{'cc'})) {	if (exists($possroles{'cc'})) {
Line 270 sub handler {	Line 270 sub handler {
if (grep(/^cr\//,@allposs)) {	if (grep(/^cr\//,@allposs)) {
$hascustom = 1;	$hascustom = 1;
}	}
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom);	&show_roles($r,\%crsenv,\%active,$hassection,$hascustom);
}	}
}	}
return OK;	return OK;