--- loncom/interface/loncreateuser.pm	2001/03/24 17:05:26	1.10
+++ loncom/interface/loncreateuser.pm	2001/03/24 17:25:54	1.11
@@ -346,6 +346,17 @@ ENDTHREEHEAD
            $r->print('Revoking '.$2.' in '.$1.': '.
           &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
                                       $1,$2,$now).'<br>');
+           if ($2 eq 'st') {
+               $1=~/^\/(\w+)\/(\w+)/;
+               my $cid=$1.'_'.$2;
+	       $r->print('Drop from classlist: '.
+          &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.
+	              $ENV{'course.'.$cid.'.num'}.':classlist:'.
+                      &Apache::lonnet::escape($ENV{'form.cuname'}.':'.
+                                              $ENV{'form.cdomain'}).'='.
+                      &Apache::lonnet::escape($now.':'),
+	              $ENV{'course.'.$cid.'.home'}).'<br>');
+           }
 	}
     } keys %ENV;
     map {
@@ -366,9 +377,8 @@ ENDTHREEHEAD
           &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
                                       $url,$3,$end,$start).'<br>');
             if ($3 eq 'st') {
-		my $cid=$url;
-                $cid=~s/^\///;
-                $cid=~s/\//\_/g;
+		$url=~/^\/(\w+)\/(\w+)/;
+                my $cid=$1.'_'.$2;
                $r->print('Add to classlist: '.
           &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'.
 	              $ENV{'course.'.$cid.'.num'}.':classlist:'.