version 1.40.2.1, 2010/08/16 14:39:20
|
version 1.41, 2010/08/22 19:28:28
|
Line 128 sub handler {
|
Line 128 sub handler {
|
return OK; |
return OK; |
} else { |
} else { |
$start_page = |
$start_page = |
&Apache::loncommon::start_page($title,$js, |
&Apache::loncommon::start_page($title,$js); |
{'no_inline_link' => 1,}); |
|
&print_header($r,$start_page,$courseid); |
&print_header($r,$start_page,$courseid); |
$r->print($output); |
$r->print($output); |
&print_footer($r); |
&print_footer($r); |
Line 137 sub handler {
|
Line 136 sub handler {
|
} |
} |
} |
} |
$start_page = |
$start_page = |
&Apache::loncommon::start_page($title,$js, |
&Apache::loncommon::start_page($title,$js); |
{'no_inline_link' => 1,}); |
|
my %domconfig = |
my %domconfig = |
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
my ($cancreate,$statustocreate) = &get_creation_controls($domain,$domconfig{'usercreation'}); |
my ($cancreate,$statustocreate) = &get_creation_controls($domain,$domconfig{'usercreation'}); |
Line 460 sub login_box {
|
Line 459 sub login_box {
|
); |
); |
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:createaccount', |
$lonhost); |
$lonhost); |
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context); |
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context); |
my $unameform = '<input type="text" name="uname" size="20" value="" />'; |
my $unameform = '<input type="text" name="uname" size="20" value="" />'; |
Line 598 sub send_token {
|
Line 597 sub send_token {
|
'domain' => $domain, |
'domain' => $domain, |
'username' => $email, |
'username' => $email, |
'courseid' => $courseid); |
'courseid' => $courseid); |
my $token = &Apache::lonnet::tmpput(\%info,$server); |
my $token = &Apache::lonnet::tmpput(\%info,$server,'createaccount'); |
if ($token !~ /^error/ && $token ne 'no_such_host') { |
if ($token !~ /^error/ && $token ne 'no_such_host') { |
my $esc_token = &escape($token); |
my $esc_token = &escape($token); |
my $showtime = localtime(time); |
my $showtime = localtime(time); |
Line 722 sub print_dataentry_form {
|
Line 721 sub print_dataentry_form {
|
$output .= &javascript_setforms($now)."\n".&javascript_checkpass($now); |
$output .= &javascript_setforms($now)."\n".&javascript_checkpass($now); |
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:createaccount', |
$lonhost); |
$lonhost); |
my $formtag = '<form name="server" method="post" target="_top" action="/adm/createaccount">'; |
my $formtag = '<form name="server" method="post" target="_top" action="/adm/createaccount">'; |
my ($datatable,$rowcount) = |
my ($datatable,$rowcount) = |
Line 963 sub username_check {
|
Line 962 sub username_check {
|
'time' => $now, |
'time' => $now, |
'domain' => $domain, |
'domain' => $domain, |
'username' => $username); |
'username' => $username); |
my $authtoken = &Apache::lonnet::tmpput(\%info,$lonhost); |
my $authtoken = &Apache::lonnet::tmpput(\%info,$lonhost,'createaccount'); |
if ($authtoken !~ /^error/ && $authtoken ne 'no_such_host') { |
if ($authtoken !~ /^error/ && $authtoken ne 'no_such_host') { |
$output .= '<input type="hidden" name="authtoken" value="'.&HTML::Entities::encode($authtoken,'&<>"').'" />'; |
$output .= '<input type="hidden" name="authtoken" value="'.&HTML::Entities::encode($authtoken,'&<>"').'" />'; |
} else { |
} else { |