--- loncom/auth/lonroles.pm 2013/04/03 20:46:55 1.282 +++ loncom/auth/lonroles.pm 2013/05/06 16:16:03 1.283 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.282 2013/04/03 20:46:55 raeburn Exp $ +# $Id: lonroles.pm,v 1.283 2013/05/06 16:16:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -139,6 +139,7 @@ use Apache::lonpageflip(); use Apache::lonnavdisplay(); use Apache::loncoursequeueadmin; use Apache::longroup; +use Apache::lonrss; use GDBM_File; use LONCAPA qw(:DEFAULT :match); use HTML::Entities; @@ -523,6 +524,11 @@ ENDENTERKEY &Apache::lonnet::put('nohist_crslastlogin', {$env{'user.name'}.':'.$env{'user.domain'}. ':'.$csec.':'.$role => $now},$cdom,$cnum); + my $feeds; + &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds); + &Apache::lonnet::appenv( + {'course.'.$cdom.'_'.$cnum.'.feeds' => $feeds} + ); } if (($env{'form.orgurl'}) && ($env{'form.orgurl'}!~/^\/adm\/flip/)) {