loncom/interface/selfenroll.pm - diff

Return to selfenroll.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2010/03/22 20:11:22	version 1.27, 2012/05/16 21:19:39
Line 54 sub handler {	Line 54 sub handler {
&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']);
my $js = &Apache::createaccount::catreturn_js();	my $js = &Apache::createaccount::catreturn_js();
my ($coursechk,$courseid) = &validate_course_id($env{'form.courseid'});
if ($coursechk ne 'ok') {	my $courseid = Apache::lonnet::is_course($env{'form.courseid'});
&page_header($r,$courseid,$js);
	unless ($courseid) {
	&page_header($r,$env{'form.courseid'},$js);
$r->print('<h3>'.&mt('Self-enrollment error').'</h3>'.	$r->print('<h3>'.&mt('Self-enrollment error').'</h3>'.
'<span class="LC_error">'.	'<span class="LC_error">'.
&mt('Invalid domain or course number').'</span>');	&mt('Invalid domain or course number').'</span>');
Line 358 sub page_footer {	Line 360 sub page_footer {
return;	return;
}	}

sub validate_course_id {
my ($courseid) = @_;
my ($cdom,$cnum) = ($env{'form.courseid'} =~ /^($match_domain)_($match_courseid)$/);
if ($cdom ne '' && $cnum ne '') {
if (&Apache::lonnet::is_course($cdom,$cnum)) {
return ('ok',$courseid);
}
}
return;
}

sub user_is_known {	sub user_is_known {
my $known = 0;	my $known = 0;
if ($env{'user.name'} ne '' && $env{'user.name'} ne 'public'	if ($env{'user.name'} ne '' && $env{'user.name'} ne 'public'