loncom/interface/lonpickauthor.pm - diff

Return to lonpickauthor.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2008/10/15 09:49:52	version 1.3, 2012/10/12 17:00:50
Line 53 sub handler {	Line 53 sub handler {
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['form','roledom','sortby']);	($ENV{'QUERY_STRING'},['form','roledom','sortby']);
my $then=$env{'user.login.time'};	my $then=$env{'user.login.time'};
	my $update=$env{'user.update.time'};
	if (!$update) {
	$update = $then;
	}
my (%dcroles,%dom_roles,$earlyout,$domdesc);	my (%dcroles,%dom_roles,$earlyout,$domdesc);
my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$then);	my $numdc = &Apache::lonroles::check_fordc(\%dcroles,$update,$then);
if ($env{'form.roledom'} ne '') {	if ($env{'form.roledom'} ne '') {
$domdesc = &Apache::lonnet::domain($env{'form.roledom'});	$domdesc = &Apache::lonnet::domain($env{'form.roledom'});
if ($domdesc eq '') {	if ($domdesc eq '') {