--- loncom/interface/loncreateuser.pm 2003/09/17 17:30:10 1.67
+++ loncom/interface/loncreateuser.pm 2003/10/18 16:06:47 1.70
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.67 2003/09/17 17:30:10 albertel Exp $
+# $Id: loncreateuser.pm,v 1.70 2003/10/18 16:06:47 www 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;
@@ -547,7 +548,7 @@ ENDCOAUTH
'
Start | End | ');
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(<print(<Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"
+Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"
ENDNEWUSERHEAD
# Check for the authentication mode and password
if (! $amode || ! $genpwd) {
@@ -686,7 +687,7 @@ ENDNEWUSERHEAD
$r->print('Generating user: '.$result);
my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},
$ENV{'form.ccdomain'});
- $r->print('
Home server: '.$home.' '.
+ $r->print('
Home server: '.$home.' '.
$Apache::lonnet::libserv{$home});
} elsif (($ENV{'form.login'} ne 'nochange') &&
($ENV{'form.login'} ne '' )) {
@@ -1082,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;
}
@@ -1093,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);