--- loncom/interface/selfenroll.pm 2014/04/05 13:17:16 1.27.2.2 +++ loncom/interface/selfenroll.pm 2014/04/02 16:51:11 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network # Allow users to self-enroll in a course # -# $Id: selfenroll.pm,v 1.27.2.2 2014/04/05 13:17:16 raeburn Exp $ +# $Id: selfenroll.pm,v 1.29 2014/04/02 16:51:11 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -349,8 +349,7 @@ sub enrollment_limit_check { sub page_header { my ($r,$courseid,$js,$desc) = @_; my $start_page = - &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js, - {'no_inline_link' => 1,}); + &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js); $r->print($start_page); &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc); @@ -563,7 +562,7 @@ sub store_selfenroll_request { }); my $token; if ($status eq 'pending') { - $token = &Apache::lonnet::tmpput(\%selfenroll,$lonhost); + $token = &Apache::lonnet::tmpput(\%selfenroll,$lonhost);; $userenroll{$cdom.'_'.$cnum}{'token'} = $token; $userenroll{$cdom.'_'.$cnum}{'lonhost'} = $lonhost; $userenroll{$cdom.'_'.$cnum}{'handle'} = $handle; @@ -584,13 +583,11 @@ sub store_selfenroll_request { 'token' => $token, ); my %domconfig = &Apache::lonnet::get_dom('configuration',['selfenrollment'],$cdom); - if (ref($domconfig{'selfenrollment'}) eq 'HASH') { my ($url,$buttontext,$code,@fields); if (ref($domconfig{'selfenrollment'}{'validation'}) eq 'HASH') { my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{ 'one_time' => 1}); $postvalues{'uniquecode'} = $courseinfo{'internal.uniquecode'}; - $postvalues{'description'} = $courseinfo{'description'}; $url = $domconfig{'selfenrollment'}{'validation'}{'url'}; if (ref($domconfig{'selfenrollment'}{'validation'}{'fields'}) eq 'ARRAY') { @fields = @{$domconfig{'selfenrollment'}{'validation'}{'fields'}}; @@ -605,21 +602,15 @@ sub store_selfenroll_request { $output .= ''."\n"; } } - if ($buttontext eq '') { - $buttontext = &mt('Complete my enrollment'); - } - my $protocol = $Apache::lonnet::protocol{$lonhost}; - $protocol = 'http' if ($protocol ne 'https'); - my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/enrollqueued.pl'; - $output .= ''."\n". - ''."\n". - ''."\n"; - } else { - $status = 'request'; - } + } + if ($buttontext eq '') { + $buttontext = &mt('Complete my enrollment'); + } + $output .= ''."\n". + ''."\n"; } } else { - $status = 'request'; + $status eq 'request'; } } if ($status eq 'request') {