--- loncom/interface/loncreateuser.pm	2001/03/02 20:31:34	1.4
+++ loncom/interface/loncreateuser.pm	2001/03/02 22:06:43	1.5
@@ -237,6 +237,9 @@ Internally authenticated (with initial p
 ENDNUSER
     } else {
 	$r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>');
+        $r->print('<input type=hidden name=cuname value='.$ccuname.'>');
+        $r->print('<input type=hidden name=cdomain value='.$ccdomain.'>');
+
         my $rolesdump=&Apache::lonnet::reply(
                                   "dump:$ccdomain:$ccuname:roles",$uhome);
         unless ($rolesdump eq 'con_lost') { 
@@ -253,10 +256,9 @@ ENDNUSER
               my ($trole,$tend,$tstart)=split(/_/,$role);
               my $bgcol='ffffff';
               my $allows=0;
-              if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
+              if ($area=~/^\/(\w+)\/(\d\w+)/) {
                  my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);
-                 $area='Course: '.
-                          $coursedata{'description'}.'<br>Section/Group: '.$3;
+                 my $carea='Course: '.$coursedata{'description'};
                  $inccourses{$1.'_'.$2}=1;
                  if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {
 		     $allows=1;
@@ -264,6 +266,10 @@ ENDNUSER
                  $bgcol=$1.'_'.$2;
                  $bgcol=~s/[^8-9b-e]//g;
                  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);
+                 if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
+                     $carea.='<br>Section/Group: '.$3;
+		 }
+                 $area=$carea;
 	      } else {
                  if ($1) {
 		     $incdomains{$1}=1;
@@ -396,12 +402,26 @@ ENDTHREEHEAD
                                       $1,$2,$now).'<br>');
 	}
     } keys %ENV;
-    $r->print('</body></html>');
     map {
 	if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {
-	    $r->print('a:'.$_.': '.$1.' '.$2.' '.$3.'<br>');
+            my $url='/'.$1.'/'.$2;
+            if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {
+		$url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};
+            }
+            my $start=$now;
+            if ($ENV{'form.start_'.$1.'_'.$2.'_'.$3}) {
+		$start=$ENV{'form.start_'.$1.'_'.$2.'_'.$3};
+            }
+            my $end=0;
+            if ($ENV{'form.end_'.$1.'_'.$2.'_'.$3}) {
+		$end=$ENV{'form.end_'.$1.'_'.$2.'_'.$3};
+            }
+            $r->print('Assigning: '.$3.' in '.$url.': '.
+          &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
+                                      $url,$3,$end,$start).'<br>');
 	}
     } keys %ENV;
+    $r->print('</body></html>');
 }
 
 # ================================================================ Main Handler