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

Diff for /loncom/interface/createaccount.pm between versions 1.40.2.5.2.9 and 1.40.2.5.2.14

version 1.40.2.5.2.9, 2012/02/14 16:04:22 version 1.40.2.5.2.14, 2012/05/01 12:39:32
Line 102  sub handler { Line 102  sub handler {
     my ($js,$courseid,$title);      my ($js,$courseid,$title);
     if (defined($env{'form.courseid'})) {      if (defined($env{'form.courseid'})) {
         $courseid = &validate_course($env{'form.courseid'});          $courseid = &validate_course($env{'form.courseid'});
           if (($courseid eq 'relate_3H121116c19344ff3relatel1') ||
               ($courseid eq 'relate_3e100973b27484f2drelatel1') {
               $courseid = 'relate_2764113e81b9e4f0crelatel1';
           }
     }      }
     if ($courseid ne '') {      if ($courseid ne '') {
         $js = &catreturn_js();          $js = &catreturn_js();
Line 611  sub call_rulecheck { Line 615  sub call_rulecheck {
 sub send_token {  sub send_token {
     my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;      my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;
     my $msg = '<h3>'.&mt('Account creation status').'</h3>'.      my $msg = '<h3>'.&mt('Account creation status').'</h3>'.
               &mt('Thank you for your request to create a new LON-CAPA account.').                &mt('Thank you for your request to create a new Mechanics Online account.').
               '<br /><br />';                '<br /><br />';
     my $now = time;      my $now = time;
     my %info = ('ip'         => $ENV{'REMOTE_ADDR'},      my %info = ('ip'         => $ENV{'REMOTE_ADDR'},
Line 629  sub send_token { Line 633  sub send_token {
                        ' '.                         ' '.
                        &mt('In order to complete the registration process, please open the following link in your web browser:').                         &mt('In order to complete the registration process, please open the following link in your web browser:').
                        "\n\n".                         "\n\n".
                        &Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token).                         &Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token.
                        "\n\n".                         "\n\n".
                        &mt('This link will take you to a sign-up page where you will be asked to provide some general information and finalize the registration process.').                         &mt('This link will take you to a sign-up page where you will be asked to provide some general information and finalize the registration process.').
                        ' '.                         ' '.
                        &mt('The course will begin on March 1st, and until that date, a self-test will be available for you to test your level of preparation for our course.').                         &mt('A self-test (for review) is available within the course, for you to test your level of preparation.').
                        ' '.  
                        &mt('The self-test is an integral part of the course, and should be completed by the March 1st start date.').  
                        "\n\n".                         "\n\n".
                        &mt('Best Regards,').                         &mt('Best Regards,').
                        "\n\n".                         "\n\n".
Removed from v.1.40.2.5.2.9  
changed lines
  Added in v.1.40.2.5.2.14

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