--- loncom/auth/lonroles.pm	2013/01/04 04:03:03	1.281
+++ 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.281 2013/01/04 04:03:03 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/)) {
@@ -2545,7 +2551,8 @@ sub role_desc {
     my ($item,$update,$refresh,$now) = @_;
     my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$twhere,
         $trole,$tremark);
-    &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,                                      $now,\$role,\$where, \$trolecode,
+    &Apache::lonnet::role_status('user.role.'.$item,$update,$refresh,
+                                 $now,\$role,\$where,\$trolecode,
                                  \$tstatus,\$tstart,\$tend);
     if ($role =~ /^cr\//) {
         my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);