--- loncom/interface/lonuserutils.pm	2007/12/05 21:23:14	1.11
+++ loncom/interface/lonuserutils.pm	2007/12/06 04:03:36	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.11 2007/12/05 21:23:14 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.12 2007/12/06 04:03:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -136,22 +136,30 @@ sub modifyuserrole {
 
 sub propagate_id_change {
     my ($uname,$udom,$user) = @_;
-    my (@types,@roles,@cdoms);
+    my (@types,@roles);
     @types = ('active','future');
     @roles = ('st');
     my $idresult;
     my %roleshash = &Apache::lonnet::get_my_roles($uname,
-                        $udom,'userroles',\@types,\@roles,\@cdoms);
+                        $udom,'userroles',\@types,\@roles);
+    my %args = (
+                one_time => 1,
+               );
     foreach my $item (keys(%roleshash)) {
         my ($cnum,$cdom,$role) = split(/:/,$item);
         my ($start,$end) = split(/:/,$roleshash{$item});
         if (&Apache::lonnet::is_course($cdom,$cnum)) {
-            my %userupdate;
-            my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%userupdate);
+            my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user);
+            my %coursehash = 
+                &Apache::lonnet::coursedescription($cdom.'_'.$cnum,\%args);
+            my $cdesc = $coursehash{'description'};
+            if ($cdesc eq '') { 
+                $cdesc = $cdom.'_'.$cnum;
+            }
             if ($result eq 'ok') {
-                $idresult .= "Classlist change: $uname:$udom - class -> $cnum:$cdom\n";
+                $idresult .= &mt('Classlist update for "[_1]" in "[_2]".',$uname.':'.$udom,$cdesc).'<br />'."\n";
             } else {
-                $idresult .= "Error - $result -during classlist update for $uname:$udom in $cnum:$cdom\n";
+                $idresult .= &mt('Error: "[_1]" during classlist update for "[_2]" in "[_3]".',$result,$uname.':'.$udom,$cdesc).'<br />'."\n";
             }
         }
     }