--- loncom/interface/loncommon.pm	2010/01/16 15:57:51	1.925.2.8
+++ loncom/interface/loncommon.pm	2010/01/16 19:56:54	1.925.2.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.8 2010/01/16 15:57:51 raeburn Exp $
+# $Id: loncommon.pm,v 1.925.2.9 2010/01/16 19:56:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10703,6 +10703,7 @@ sub new_roles_update {
         next unless ($envkey =~ /^user\.role\./);
         $rolecount ++;
     }
+    my $newrolecount = 0;
     if (!$rolecount) {
         my %userenv;
         foreach my $crstype ('official','unofficial','community') {
@@ -10726,6 +10727,7 @@ sub new_roles_update {
             &Apache::lonnet::set_arearole($role,$where,$tstart,$tend,
                                           $env{'user.domain'},$env{'user.name'});
             $userroles{'user.role.'.$spec} = $tstart.'.'.$tend;
+            $newrolecount ++;
             unless (grep(/^\Q$role\E$/,@newroles)) {
                 push(@newroles,$role);
             }
@@ -10746,7 +10748,7 @@ sub new_roles_update {
         }
         &Apache::lonnet::appenv(\%userenv);
     }
-    return;
+    return $newrolecount;
 }
 
 # --- Get the symbolic name of a problem and the url