version 1.19, 2002/04/11 01:57:36
|
version 1.21, 2002/04/11 18:19:46
|
Line 156 sub handler {
|
Line 156 sub handler {
|
my $redirecturl=''; |
my $redirecturl=''; |
my $next=''; |
my $next=''; |
my @possibilities=(); |
my @possibilities=(); |
|
|
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; |
Line 206 sub handler {
|
Line 205 sub handler {
|
# ------------------------------------------------------------------------- Yes |
# ------------------------------------------------------------------------- Yes |
my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
$cachehash{$mapurl}{$thisurl}=$mapnum; |
$cachehash{$mapurl}{$thisurl}=$mapnum; |
|
$cachehash{$mapurl}{'last_known'}=&Apache::lonnet::declutter($currenturl); |
|
my $startoutmap=$mapurl; |
|
|
# ============================================================ Tie the big hash |
# ============================================================ Tie the big hash |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
Line 253 sub handler {
|
Line 255 sub handler {
|
untie(%hash); |
untie(%hash); |
# --------------------------------------------------------- Store position info |
# --------------------------------------------------------- Store position info |
$cachehash{$mapurl}{'last_direction'}=$direction; |
$cachehash{$mapurl}{'last_direction'}=$direction; |
$cachehash{$mapurl}{'last_known'}= |
|
&Apache::lonnet::declutter($currenturl); |
|
foreach my $thismap (keys %cachehash) { |
foreach my $thismap (keys %cachehash) { |
&Apache::lonnet::symblist($thismap,%{$cachehash{$thisurl}}); |
&Apache::lonnet::symblist($thismap,%{$cachehash{$thismap}}); |
} |
} |
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |