[BACK]Return to selfenroll.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/selfenroll.pm between versions 1.25.6.1 and 1.27.2.1

version 1.25.6.1, 2012/05/01 16:09:26 version 1.27.2.1, 2012/05/25 03:04:59
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','usertype']);      &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 359  sub page_footer { Line 361  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'
Line 442  sub process_self_enroll { Line 433  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;
Removed from v.1.25.6.1  
changed lines
  Added in v.1.27.2.1

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