version 1.26, 2002/07/07 21:04:47
|
version 1.28, 2002/08/12 18:21:42
|
Line 53 my %hash;
|
Line 53 my %hash;
|
sub addrid { |
sub addrid { |
my ($current,$new,$condid)=@_; |
my ($current,$new,$condid)=@_; |
unless ($condid) { $condid=0; } |
unless ($condid) { $condid=0; } |
if (&Apache::lonnet::allowed('bre',$hash{'src_'.$new})) { |
|
if ($current) { |
if ($current) { |
$current.=','.$new; |
$current.=','.$new; |
} else { |
} else { |
$current=''.$new; |
$current=''.$new; |
} |
} |
} |
|
return $current; |
return $current; |
} |
} |
|
|
sub fullmove { |
sub fullmove { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
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)) { |
($rid,$mapurl)=&move($rid,$mapurl,$direction); |
($rid,$mapurl)=&move($rid,$mapurl,$direction); |
untie(%hash); |
untie(%hash); |
} |
} |
Line 184 sub handler {
|
Line 184 sub handler {
|
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
Line 206 sub handler {
|
Line 206 sub handler {
|
($currenturl=~/^\/adm\/wrapper\//)) { |
($currenturl=~/^\/adm\/wrapper\//)) { |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
Line 230 sub handler {
|
Line 230 sub handler {
|
|
|
# ============================================================ 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)) { |
my $rid=$hash{'map_pc_/res/'.$startoutmap}.'.'.$mapnum; |
my $rid=$hash{'map_pc_/res/'.$startoutmap}.'.'.$mapnum; |
|
|
# ------------------------------------------------- Move forward, backward, etc |
# ------------------------------------------------- Move forward, backward, etc |