--- loncom/interface/lonpickauthor.pm 2008/05/19 17:13:06 1.1 +++ loncom/interface/lonpickauthor.pm 2012/10/12 17:00:50 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Display authors in domain for selection of ad loc co-author role by Domain Coordinator. # -# $Id: lonpickauthor.pm,v 1.1 2008/05/19 17:13:06 raeburn Exp $ +# $Id: lonpickauthor.pm,v 1.3 2012/10/12 17:00:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,8 +53,12 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['form','roledom','sortby']); my $then=$env{'user.login.time'}; + my $update=$env{'user.update.time'}; + if (!$update) { + $update = $then; + } 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 '') { $domdesc = &Apache::lonnet::domain($env{'form.roledom'}); if ($domdesc eq '') { @@ -66,10 +70,10 @@ sub handler { $earlyout = &mt('There are no library servers containing Construction spaces currently in domain: [_1], so you can not assume a co-author role.',$domdesc); } } else { - $earlyout = &mt('You do not have a domain coordinator role in domain: [_1], so cannot choose a Construction space for which you can assume a co-author role.',$domdesc); + $earlyout = &mt('You do not have a domain coordinator role in domain: [_1], so you cannot choose a Construction space for which you can assume a co-author role.',$domdesc); } } else { - $earlyout = &mt('You do not have a domain coordinator role, so cannot choose a Construction space for which you can assume a co-author role.'); + $earlyout = &mt('You do not have a domain coordinator role, so you cannot choose a Construction space for which you can assume a co-author role.'); } } else { $earlyout = &mt('Invalid domain');