Return to lonpageflip.pm CVS log | Up to [LON-CAPA] / rat |
version 1.24, 2002/04/12 14:24:58 | version 1.25, 2002/05/23 15:07:55 |
---|---|
Line 63 sub addrid { | Line 63 sub addrid { |
return $current; | return $current; |
} | } |
sub fullmove { | |
my ($rid,$mapurl,$direction)=@_; | |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', | |
&GDBM_READER,0640)) { | |
($rid,$mapurl)=&move($rid,$mapurl,$direction); | |
untie(%hash); | |
} | |
return($rid,$mapurl); | |
} | |
sub move { | sub move { |
my ($rid,$mapurl,$direction)=@_; | my ($rid,$mapurl,$direction)=@_; |
my $startoutrid=$rid; | my $startoutrid=$rid; |