version 1.9, 2000/10/17 14:23:32
|
version 1.10, 2000/10/17 17:49:59
|
Line 61 sub handler {
|
Line 61 sub handler {
|
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
my $direction=$1; |
my $direction=$1; |
my $currenturl=$2; |
my $currenturl=$2; |
|
if ($direction eq 'return') { |
|
# -------------------------------------------------------- Return to last known |
|
my $last; |
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
|
&GDBM_READER,0640)) { |
|
$last=$hash{'last_known'}; |
|
untie(%hash); |
|
} |
|
my $newloc; |
|
if ($last) { |
|
$newloc='/res/'.(split(/\_\_\_/,$last))[1]; |
|
} else { |
|
$newloc='/adm/noidea.html'; |
|
} |
|
$r->content_type('text/html'); |
|
$r->header_out(Location => |
|
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
|
|
|
return REDIRECT; |
|
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
unless ($currenturl=~/\/res\//) { |
unless ($currenturl=~/\/res\//) { |
Line 138 sub handler {
|
Line 158 sub handler {
|
# -------------------------------------------------------------------------- Up |
# -------------------------------------------------------------------------- Up |
} elsif ($direction eq 'down') { |
} elsif ($direction eq 'down') { |
# ------------------------------------------------------------------------ Down |
# ------------------------------------------------------------------------ Down |
} |
} |
# ----------------------------------------------------- Check out possibilities |
# ----------------------------------------------------- Check out possibilities |
if ($next) { |
if ($next) { |
@possibilities=split(/\,/,$next); |
@possibilities=split(/\,/,$next); |