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

Diff for /loncom/interface/createaccount.pm between versions 1.14 and 1.15

version 1.14, 2008/07/09 17:30:59 version 1.15, 2008/07/10 00:18:05
Line 65  sub handler { Line 65  sub handler {
     }      }
     my $domdesc = &Apache::lonnet::domain($domain,'description');      my $domdesc = &Apache::lonnet::domain($domain,'description');
     my $contact_name = &mt('LON-CAPA helpdesk');      my $contact_name = &mt('LON-CAPA helpdesk');
     my $contact_email =  $r->dir_config('lonSupportEMail');      my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
       my $contacts =
           &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',
                                                    $domain,$origmail);
       my ($contact_email) = split(',',$contacts);
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $include = $r->dir_config('lonIncludes');      my $include = $r->dir_config('lonIncludes');
     my $start_page;      my $start_page;
Line 131  sub handler { Line 135  sub handler {
                                                        $domdesc,$courseid,                                                         $domdesc,$courseid,
                                                        $lonhost,$contact_email);                                                         $lonhost,$contact_email);
             if ($checkfail) {              if ($checkfail) {
                   $msg .= '<h4>'.&mt('Account creation unavailable');'</h4>';
                 if ($checkfail eq 'username') {                  if ($checkfail eq 'username') {
                     $msg .= '<span class="LC_warning">'.                      $msg .= '<span class="LC_warning">'.
                             &mt('A LON-CAPA account may not be created with the username you use.').'</span>';                              &mt('A LON-CAPA account may not be created with the username you use.').'</span>';
Line 146  sub handler { Line 151  sub handler {
             $msg .= '<h3>'.&mt('Account creation unavailable').'</h3>'.              $msg .= '<h3>'.&mt('Account creation unavailable').'</h3>'.
                     '<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account in this domain, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email);                      '<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account in this domain, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email);
         }          }
         $r->print('<h4>'.$msg.'</h4>'.$output);          $r->print($msg.'<br />'.$output);
         $r->print(&Apache::loncommon::end_page());          $r->print(&Apache::loncommon::end_page());
         return OK;          return OK;
     }      }
Removed from v.1.14  
changed lines
  Added in v.1.15

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