[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.2.1 and 1.26

version 1.25.2.1, 2010/01/18 15:58:25 version 1.26, 2010/03/22 20:11:22
Line 342  sub enrollment_limit_check { Line 342  sub enrollment_limit_check {
 sub page_header {  sub page_header {
     my ($r,$courseid,$js,$desc) = @_;      my ($r,$courseid,$js,$desc) = @_;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js,          &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js);
                                        {'no_inline_link'   => 1,});  
     $r->print($start_page);      $r->print($start_page);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc);      &Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc);
Line 564  sub store_selfenroll_request { Line 563  sub store_selfenroll_request {
             }              }
             $output = &mt('Your request for self-enrollment has been recorded.').'<br />'.              $output = &mt('Your request for self-enrollment has been recorded.').'<br />'.
                       &mt('A message will be sent to your LON-CAPA account when the course coordinator takes action on your request.').'<br />'.                        &mt('A message will be sent to your LON-CAPA account when the course coordinator takes action on your request.').'<br />'.
                       &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".');                        &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'<br />';
             my %emails = &Apache::loncommon::getemails($uname,$udom);              my %emails = &Apache::loncommon::getemails($uname,$udom);
             if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {              if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
                 my $address = $emails{'permanentemail'};                  my $address = $emails{'permanentemail'};
Line 577  sub store_selfenroll_request { Line 576  sub store_selfenroll_request {
                 $output .= '<span class="LC_warning">'.$warning.'</span><br />';                  $output .= '<span class="LC_warning">'.$warning.'</span><br />';
             }              }
   
             $output .= '<br />'.&Apache::loncoursequeueadmin::queued_selfenrollment();              $output .= &Apache::loncoursequeueadmin::queued_selfenrollment();
   
             if ($selfenroll_notifylist) {              if ($selfenroll_notifylist) {
                 my $fullname = &Apache::loncommon::plainname($uname,$udom);                  my $fullname = &Apache::loncommon::plainname($uname,$udom);
Removed from v.1.25.2.1  
changed lines
  Added in v.1.26

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