version 1.18, 2008/12/25 01:56:03
|
version 1.19, 2009/01/09 07:06:27
|
Line 73 sub main {
|
Line 73 sub main {
|
delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed |
delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed |
delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
|
|
if (!&LONCAPA::lonauthcgi::check_ipbased_access()) { |
if (!&LONCAPA::lonauthcgi::check_ipbased_access('userstatus')) { |
if (!&LONCAPA::loncgi::check_cookie_and_load_env()) { |
if (!&LONCAPA::loncgi::check_cookie_and_load_env()) { |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
print &LONCAPA::loncgi::missing_cookie_msg(); |
print &LONCAPA::loncgi::missing_cookie_msg(); |