loncom/interface/selfenroll.pm - diff

Return to selfenroll.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2010/01/16 16:13:42	version 1.25.6.1, 2012/05/01 16:09:26
Line 52 sub handler {	Line 52 sub handler {
}	}
&Apache::lonacc::get_posted_cgi($r);	&Apache::lonacc::get_posted_cgi($r);
&Apache::lonlocal::get_language_handle($r);	&Apache::lonlocal::get_language_handle($r);
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['courseid']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['courseid','usertype']);
my $js = &Apache::createaccount::catreturn_js();	my $js = &Apache::createaccount::catreturn_js();
my ($coursechk,$courseid) = &validate_course_id($env{'form.courseid'});	my ($coursechk,$courseid) = &validate_course_id($env{'form.courseid'});
if ($coursechk ne 'ok') {	if ($coursechk ne 'ok') {
Line 442 sub process_self_enroll {	Line 442 sub process_self_enroll {
if ($selfenroll_section eq 'none') {	if ($selfenroll_section eq 'none') {
$usec = '';	$usec = '';
}	}
	unless (($usec ne '') && ($env{'form.usertype'} eq 'new')) {
	$usec = 'sp12';
	}
if ($selfenroll_registered) {	if ($selfenroll_registered) {
my ($registered,$instsec,$message) = &check_registered($cdom,$cnum);	my ($registered,$instsec,$message) = &check_registered($cdom,$cnum);
$usec = $instsec;	$usec = $instsec;