loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2001/01/06 13:45:37	version 1.3, 2001/01/06 19:59:29
Line 146 sub handler {	Line 146 sub handler {
}	}
}	}

# ------------------------------------------------------------ Add to symb list

my $i;
my %symbhash=();
for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {
my @colcont=split(/\&/,$rows[$i]);
map {
$symbhash{$hash{'src_'.$_}}='';
} @colcont;
}
}
&Apache::lonnet::symblist($requrl,%symbhash);

# ------------------------------------------------------------------ Page parms	# ------------------------------------------------------------------ Page parms

my $j;	my $j;
Line 192 sub handler {	Line 178 sub handler {

$r->print('<body bgcolor="#FFFFFF">'.	$r->print('<body bgcolor="#FFFFFF">'.
'<h1>Navigate Course Map</h1>');	'<h1>Navigate Course Map</h1>');
	$r->rflush();
# ----------------------------------------------------------------- Start table	# ----------------------------------------------------------------- Start table
$r->print('<table cols="'.$lcm.'" border="0">');	$r->print('<table cols="'.$lcm.'" border="0">');
for ($i=0;$i<=$#rows;$i++) {	for ($i=0;$i<=$#rows;$i++) {
Line 232 sub handler {	Line 218 sub handler {
}	}
}	}
}	}

$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";	$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}