--- loncom/interface/loncreateuser.pm	2007/12/21 20:34:26	1.221
+++ loncom/interface/loncreateuser.pm	2007/12/23 15:50:23	1.223
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.221 2007/12/21 20:34:26 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.223 2007/12/23 15:50:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2109,7 +2109,11 @@ sub update_roles {
                     if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                         my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);
                         if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) {
-                            $output = "Error: $result\n";
+                            if ($result eq 'refused' && $logmsg) {
+                                $output = $logmsg;
+                            } else { 
+                                $output = "Error: $result\n";
+                            }
                         } else {
                             $output = &mt('Assigning').' '.$role.' in '.$url.
                                       &mt('starting').' '.localtime($now).
@@ -2836,10 +2840,10 @@ sub handler {
                                                           'User_Management_List'));
             if ($permission->{'cusr'}) {
                 &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);
-                $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');
                 $r->print(&Apache::loncommon::end_page());
             } else {
                 $r->print(&mt('You are not authorized to make bulk changes to user roles'));
+                $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');
                 $r->print(&Apache::loncommon::end_page());
             }
         } else {
@@ -3561,48 +3565,49 @@ $table.
 
 sub course_level_row {
     my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,$lt) = @_;
-    my $table = &Apache::loncommon::start_data_table_row().
-                ' <td><input type="checkbox" name="act_'.
-                $protectedcourse.'_'.$role.'" /></td>'."\n".
-                ' <td>'.$plrole.'</td>'."\n".
-                '<td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
+    my $row = &Apache::loncommon::start_data_table_row().
+              ' <td><input type="checkbox" name="act_'.
+              $protectedcourse.'_'.$role.'" /></td>'."\n".
+              ' <td>'.$plrole.'</td>'."\n".
+              ' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
     if ($role eq 'cc') {
-        $table .= '<td>&nbsp</td>';
+        $row .= '<td>&nbsp;</td>';
     } elsif ($env{'request.course.sec'} ne '') {
-        $table .= ' <td><input type="hidden" value="'.
-                  $env{'request.course.sec'}.'" '.
-                  'name="sec_'.$protectedcourse.'_'.$role.'" />'.
-                  $env{'request.course.sec'}.'</td>';
+        $row .= ' <td><input type="hidden" value="'.
+                $env{'request.course.sec'}.'" '.
+                'name="sec_'.$protectedcourse.'_'.$role.'" />'.
+                $env{'request.course.sec'}.'</td>';
     } else {
         if (ref($sections_count) eq 'HASH') {
             my $currsec = 
                 &Apache::lonuserutils::course_sections($sections_count,
                                                        $protectedcourse.'_'.$role);
-            $table .= '<td><table class="LC_createuser">'.
-                      '<tr class="LC_section_row">
-                        <td valign="top">'.$lt->{'exs'}.'<br />'.
-                        $currsec.'</td>
-                        <td>&nbsp;&nbsp;</td>
-                        <td valign="top">&nbsp;'.$lt->{'new'}.'<br />'.
+            $row .= '<td><table class="LC_createuser">'."\n".
+                    '<tr class="LC_section_row">'."\n".
+                    ' <td valign="top">'.$lt->{'exs'}.'<br />'.
+                       $currsec.'</td>'."\n".
+                     ' <td>&nbsp;&nbsp;</td>'."\n".
+                     ' <td valign="top">&nbsp;'.$lt->{'new'}.'<br />'.
                      '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.
                      '" value="" />'.
                      '<input type="hidden" '.
                      'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n".
-                     '</tr></table></td>';
+                     '</tr></table></td>'."\n";
         } else {
-            $table .= '<td><input type="text" size="10" '.
-                      'name="sec_'.$protectedcourse.'_'.$role.'" /></td>';
+            $row .= '<td><input type="text" size="10" '.
+                      'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n";
         }
     }
-    $table .= <<ENDTIMEENTRY;
-<td><input type="hidden" name="start_$protectedcourse\_$role" value='' />
+    $row .= <<ENDTIMEENTRY;
+<td><input type="hidden" name="start_$protectedcourse\_$role" value="" />
 <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt->{'ssd'}</a></td>
-<td><input type="hidden" name="end_$protectedcourse\_$role" value='' />
+<td><input type="hidden" name="end_$protectedcourse\_$role" value="" />
 <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt->{'sed'}</a></td>
 ENDTIMEENTRY
-    $table.= &Apache::loncommon::end_data_table_row();
+    $row .= &Apache::loncommon::end_data_table_row();
+    return $row;
 }
 
 sub course_level_dc {