version 1.37, 2003/03/08 01:39:29
|
version 1.40, 2003/08/15 14:49:26
|
Line 311 sub handler {
|
Line 311 sub handler {
|
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |
# ----------------------------------------------------- There is a URL to go to |
# ----------------------------------------------------- There is a URL to go to |
|
if ($direction eq 'forward') { |
|
&Apache::lonnet::linklog($currenturl,$redirecturl); |
|
} |
|
if ($direction eq 'back') { |
|
&Apache::lonnet::linklog($redirecturl,$currenturl); |
|
} |
# ------------------------------------------------- Check for critical messages |
# ------------------------------------------------- Check for critical messages |
if ((time-$ENV{'user.criticalcheck.time'})>300) { |
if ((time-$ENV{'user.criticalcheck.time'})>300) { |
my @what=&Apache::lonnet::dump |
my @what=&Apache::lonnet::dump |