version 1.9, 2008/07/04 19:32:56
|
version 1.13, 2008/07/08 17:52:16
|
Line 35 use Apache::Constants qw(:common);
|
Line 35 use Apache::Constants qw(:common);
|
use Apache::lonacc; |
use Apache::lonacc; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonauth; |
use Apache::lonauth; |
use Apache::resetpw; |
use Apache::resetpw; |
Line 195 sub handler {
|
Line 196 sub handler {
|
$r->print(<$jsh>); |
$r->print(<$jsh>); |
$r->print(&javascript_setforms($now)); |
$r->print(&javascript_setforms($now)); |
} |
} |
|
if (grep(/^email$/,@cancreate)) { |
|
$r->print(&javascript_validmail()); |
|
} |
$output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost, |
$output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost, |
$courseid); |
$courseid); |
} |
} |
Line 277 ENDSCRIPT
|
Line 281 ENDSCRIPT
|
return $js; |
return $js; |
} |
} |
|
|
|
sub javascript_validmail { |
|
my %lt = &Apache::lonlocal::texthash ( |
|
email => 'The e-mail address you entered', |
|
notv => 'is not a valid e-mail address', |
|
); |
|
my $output = "\n".'<script type="text/javascript">'."\n". |
|
&Apache::lonhtmlcommon::javascript_valid_email()."\n"; |
|
$output .= <<"ENDSCRIPT"; |
|
function validate_email() { |
|
field = document.createaccount.useremail; |
|
if (validmail(field) == false) { |
|
alert("$lt{'email'}: "+field.value+" $lt{'notv'}."); |
|
return false; |
|
} |
|
return true; |
|
} |
|
ENDSCRIPT |
|
$output .= "\n".'</script>'."\n"; |
|
return $output; |
|
} |
|
|
sub print_username_form { |
sub print_username_form { |
my ($domain,$domdesc,$cancreate,$now,$lonhost,$courseid) = @_; |
my ($domain,$domdesc,$cancreate,$now,$lonhost,$courseid) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
Line 290 sub print_username_form {
|
Line 315 sub print_username_form {
|
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
if ((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth')) { |
if ((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth')) { |
$output = '<div class="LC_left_float"><h3>'.&mt('Create account with a username provided by your institution').'</h3>'; |
$output = '<div class="LC_left_float"><h3>'.&mt('Create account with a username provided by your institution').'</h3>'; |
$output .= &mt('If you already have a log-in ID at your institution, you may be able to use it for LON-CAPA.').'<br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />'; |
$output .= &mt('If you already have a log-in ID at your institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />'; |
my ($lkey,$ukey) = &Apache::lonpreferences::des_keys(); |
my ($lkey,$ukey) = &Apache::lonpreferences::des_keys(); |
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey); |
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey); |
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount', |
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount', |
Line 327 sub print_username_form {
|
Line 352 sub print_username_form {
|
my $emailform = '<input type="text" name="useremail" size="25" value="" />'; |
my $emailform = '<input type="text" name="useremail" size="25" value="" />'; |
my $captchaform = &create_captcha(); |
my $captchaform = &create_captcha(); |
my $submit_text = &mt('Request LON-CAPA account'); |
my $submit_text = &mt('Request LON-CAPA account'); |
$output .= '<form name="createaccount" method="post" onsubmit="validate_email();" action="/adm/createaccount">'. |
$output .= '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'. |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::row_title(&mt('E-mail address'), |
&Apache::lonhtmlcommon::row_title(&mt('E-mail address'), |
'LC_pick_box_title')."\n". |
'LC_pick_box_title')."\n". |
Line 914 sub create_captcha {
|
Line 939 sub create_captcha {
|
|
|
sub captcha_settings { |
sub captcha_settings { |
my %captcha_params = ( |
my %captcha_params = ( |
output_dir => "/home/httpd/html/captcha", |
output_dir => $Apache::lonnet::perlvar{'lonCaptchaDir'}, |
www_output_dir => "/captcha", |
www_output_dir => "/captchaspool", |
db_dir => "/home/www/captchadb", |
db_dir => $Apache::lonnet::perlvar{'lonCaptchaDb'}, |
numchars => '5', |
numchars => '5', |
); |
); |
return %captcha_params; |
return %captcha_params; |