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; |
} |
} |