--- loncom/interface/loncreateuser.pm	2003/07/25 01:18:04	1.66
+++ loncom/interface/loncreateuser.pm	2003/10/13 21:41:19	1.69
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.66 2003/07/25 01:18:04 bowersj2 Exp $
+# $Id: loncreateuser.pm,v 1.69 2003/10/13 21:41:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,6 +63,7 @@ use strict;
 use Apache::Constants qw(:common :http);
 use Apache::lonnet;
 use Apache::loncommon;
+use Apache::lonlocal;
 
 my $loginscript; # piece of javascript used in two separate instances
 my $generalrule;
@@ -310,7 +311,10 @@ END
 <table border=2>
 <tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>
 END
-	   foreach my $area (sort keys(%rolesdump)) {
+	   foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
+				    my $b1=join('_',(split('_',$b))[1,0]);
+				    return $a1 cmp $b1;
+				} keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);
                my $role = $rolesdump{$area};
                my $thisrole=$area;
@@ -544,7 +548,7 @@ ENDCOAUTH
     '<th>Start</th><th>End</th></tr>');
     foreach ( sort( keys(%incdomains))) {
 	my $thisdomain=$_;
-        foreach ('dc','li','dg','au') {
+        foreach ('dc','li','dg','au','sc') {
             if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) {
                my $plrole=&Apache::lonnet::plaintext($_);
                $r->print(<<ENDDROW);
@@ -1079,7 +1083,7 @@ sub handler {
     my $r = shift;
 
     if ($r->header_only) {
-       $r->content_type('text/html');
+       &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;
        return OK;
     }
@@ -1090,7 +1094,7 @@ sub handler {
         (&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) ||
         (&Apache::lonnet::allowed('cca',$ENV{'request.role.domain'})) ||
         (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'}))) {
-       $r->content_type('text/html');
+       &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;
        unless ($ENV{'form.phase'}) {
 	   &print_username_entry_form($r);