--- loncom/interface/loncreateuser.pm	2004/12/28 22:30:28	1.94
+++ loncom/interface/loncreateuser.pm	2005/01/11 22:08:08	1.97
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.94 2004/12/28 22:30:28 matthew Exp $
+# $Id: loncreateuser.pm,v 1.97 2005/01/11 22:08:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1237,14 +1237,6 @@ END
                         $r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));
                     }
                 }
-		# Assign the role and report it.
-		$r->print(&mt('Assigning').' '.$2.' in '.$url.': '.
-                         ($start?', '.&mt('starting').' '.localtime($start):'').
-                         ($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.
-                          &Apache::lonnet::assignrole(
-                              $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
-                              $url,$2,$end,$start)
-			  .'</b><br>');
 	    } else {
 		$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');
             }
@@ -1256,7 +1248,7 @@ END
 }
 
 sub commit_customrole {
-    my ($url,$three,$four,$five,$end,$start) = @_;
+    my ($url,$three,$four,$five,$start,$end) = @_;
     my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.'@'.$three.' in '.$url.
                          ($start?', '.&mt('starting').' '.localtime($start):'').
                          ($end?', ending '.localtime($end):'').': <b>'.
@@ -1722,7 +1714,7 @@ sub course_sections {
         $output = '<select name="currsec_'.$role.'" ';
         my $multiple = 4;
         if ($num_sections <4) { $multiple = $num_sections; }
-        $output .= '"multiple size="'.$multiple.'" >'."\n";
+        $output .= '"multiple" size="'.$multiple.'">'."\n";
         foreach (@sections) {
             $output .= '<option value="'.$_.'">'.$_."</option>\n";
         }