rat/lonsequence.pm - diff

Return to lonsequence.pm CVS log

Up to [LON-CAPA] / rat

version 1.1, 2000/10/16 20:47:39	version 1.2, 2000/10/16 21:09:33
Line 43 sub handler {	Line 43 sub handler {
return OK;	return OK;
}	}

	my %hash;
my %bighash;	my %bighash;
	my $requrl=$r->uri;

# ----------------------------------------------------------------- Tie db file	# ----------------------------------------------------------------- Tie db file
if ($ENV{'request.course.fn'}) {	if ($ENV{'request.course.fn'}) {
my $envkey;	my $last;
	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
	&GDBM_READER,0640)) {
	$last=$hash{'last_direction'};
	untie(%hash);
	}
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',	if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
&GDBM_READER,0640)) {	&GDBM_READER,0640)) {
	my $direction='';
	my $prevmap='';
	if ($last) {
	($prevmap,$direction)=(split(/\_\_\_/,$last));
	}

	# ===== Stuff goes here
foreach $envkey (keys %ENV) {	foreach $envkey (keys %ENV) {
if ($envkey=~/^form\.(\d+)\.(\d+)$/) {	if ($envkey=~/^form\.(\d+)\.(\d+)$/) {
my $mapid=$1;	my $mapid=$1;