version 1.37, 2003/03/08 01:39:29
|
version 1.39, 2003/08/15 14:14:43
|
Line 189 sub handler {
|
Line 189 sub handler {
|
if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) { |
if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) { |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
my $direction=$1; |
my $direction=$1; |
my $currenturl=$2; |
my $currenturl=&Apache::lonnet::unescape($2); |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
my $last; |
my $last; |
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 |