--- loncom/lonnet/perl/lonnet.pm 2009/05/08 01:43:50 1.997 +++ loncom/lonnet/perl/lonnet.pm 2009/05/08 12:45:28 1.998 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.997 2009/05/08 01:43:50 raeburn Exp $ +# $Id: lonnet.pm,v 1.998 2009/05/08 12:45:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2744,7 +2744,7 @@ sub get_course_adv_roles { if ($username eq '' || $domain eq '') { next; } unless (ref($privileged{$domain}) eq 'HASH') { my %dompersonnel = - &Apache::lonnet::get_domain_roles($domain,['dc'],undef,$now); + &Apache::lonnet::get_domain_roles($domain,['dc'],$now,$now); $privileged{$domain} = {}; foreach my $server (keys(%dompersonnel)) { if(ref($dompersonnel{$server}) eq 'HASH') {