loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2003/09/17 17:30:10	version 1.68, 2003/09/21 21:40:06
Line 63 use strict;	Line 63 use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonlocal;

my $loginscript; # piece of javascript used in two separate instances	my $loginscript; # piece of javascript used in two separate instances
my $generalrule;	my $generalrule;
Line 1082 sub handler {	Line 1083 sub handler {
my $r = shift;	my $r = shift;

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
Line 1093 sub handler {	Line 1094 sub handler {
(&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) \|\|	(&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) \|\|
(&Apache::lonnet::allowed('cca',$ENV{'request.role.domain'})) \|\|	(&Apache::lonnet::allowed('cca',$ENV{'request.role.domain'})) \|\|
(&Apache::lonnet::allowed('mau',$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;	$r->send_http_header;
unless ($ENV{'form.phase'}) {	unless ($ENV{'form.phase'}) {
&print_username_entry_form($r);	&print_username_entry_form($r);