Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.107 and 1.108

version 1.107, 2008/04/30 23:23:07	version 1.108, 2008/06/24 15:51:25
Line 661 sub create_course {	Line 661 sub create_course {
# Check the veracity of the course coordinator	# Check the veracity of the course coordinator
if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {	if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {
$r->print('<form action="/adm/createuser" method="post" name="crtuser">');	$r->print('<form action="/adm/createuser" method="post" name="crtuser">');
$r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'.<br />');	$r->print('<div class="LC_warning">'
$r->print(&mt("Please click Back on your browser and select another user, or "));	.&mt('No such user [_1] at domain [_2].','<tt>'.$ccuname.'</tt>','<tt>'.$ccdomain.'</tt>')
$r->print('	.'</div>');
<input type="hidden" name="phase" value="get_user_info" />	$r->print(&mt('Please click Back on your browser and select another user, or [_1]Create User[_2]'
<input type="hidden" name="ccuname" value="'.$ccuname.'" />	, '<input type="hidden" name="phase" value="get_user_info" />'
<input type="hidden" name="ccdomain" value="'.$ccdomain.'" />	.'<input type="hidden" name="ccuname" value="'.$ccuname.'" />'
<input name="userrole" type="submit" value="'.	.'<input type="hidden" name="ccdomain" value="'.$ccdomain.'" />'
&mt('Create User').'" />	.'<input name="userrole" type="submit" value="'
</form>'.&Apache::loncommon::end_page());	, '" />'
	)
	.'</form>'.&Apache::loncommon::end_page()
	);
return;	return;
}	}
# Check the proposed home server for the course	# Check the proposed home server for the course
my %host_servers =	my %host_servers =
&Apache::lonnet::get_servers($env{'request.role.domain'},'library');	&Apache::lonnet::get_servers($env{'request.role.domain'},'library');
if (! exists($host_servers{$env{'form.course_home'}})) {	if (! exists($host_servers{$env{'form.course_home'}})) {
$r->print(&mt('Invalid home server for course').': '.	$r->print(&mt('Invalid home server for course: [_1]'
$env{'form.course_home'}.&Apache::loncommon::end_page());	,$env{'form.course_home'}.&Apache::loncommon::end_page()));
return;	return;
}	}
my ($courseid,$crsudom,$crsunum);	my ($courseid,$crsudom,$crsunum);
Line 725 sub print_intro_page {	Line 728 sub print_intro_page {
&mt('Create a new course by completing an online form.'),	&mt('Create a new course by completing an online form.'),
},	},
{ internal_name => 'groupone',	{ internal_name => 'groupone',
name => &mt('Create a single collaborative group space '),	name => &mt('Create a single collaborative group space'),
short_description =>	short_description =>
&mt('Create a new group space for non-course use by completing an online form .'),	&mt('Create a new group space for non-course use by completing an online form.'),
},	},
{ internal_name => 'batchone',	{ internal_name => 'batchone',
name => &mt('Create courses/groups by uploading an attributes file'),	name => &mt('Create courses/groups by uploading an attributes file'),
short_description =>	short_description =>
&mt('Upload an attributes file containing specifications for one or more courses or groups in XML format'),	&mt('Upload an attributes file containing specifications for one or more courses or groups in XML format.'),
help => 'Batch_Creation',	help => 'Batch_Creation',
},	},
);	);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.107
changed lines
	Added in v.1.108