version 1.85, 2014/05/20 20:40:46
|
version 1.86, 2014/12/11 13:16:49
|
Line 390 sub handler {
|
Line 390 sub handler {
|
untie(%hash); |
untie(%hash); |
# --------------------------------------------------------- Store position info |
# --------------------------------------------------------- Store position info |
$cachehash{$startoutmap}{'last_direction'}=[$direction,'notasymb']; |
$cachehash{$startoutmap}{'last_direction'}=[$direction,'notasymb']; |
foreach my $thismap (keys %cachehash) { |
foreach my $thismap (keys(%cachehash)) { |
my $mapnum=$cachehash{$thismap}->{'mapnum'}; |
my $mapnum=$cachehash{$thismap}->{'mapnum'}; |
delete($cachehash{$thismap}->{'mapnum'}); |
delete($cachehash{$thismap}->{'mapnum'}); |
&Apache::lonnet::symblist($thismap, |
&Apache::lonnet::symblist($thismap, |