rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.43, 2002/07/01 15:02:19	version 1.45, 2002/09/01 19:29:01
Line 162 sub handler {	Line 162 sub handler {
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {	if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
my $fn=$ENV{'request.course.fn'};	my $fn=$ENV{'request.course.fn'};
if (-e "$fn.db") {	if (-e "$fn.db") {
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {	if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
# ------------------------------------------------------------------- Hash tied	# ------------------------------------------------------------------- Hash tied
my $firstres=$hash{'map_start_'.$requrl};	my $firstres=$hash{'map_start_'.$requrl};
my $lastres=$hash{'map_finish_'.$requrl};	my $lastres=$hash{'map_finish_'.$requrl};
Line 171 sub handler {	Line 171 sub handler {

@rows=();	@rows=();

&tracetable(0,$firstres,'&'.$lastres.'&');	&tracetable(0,$firstres,'&');
if ($hash{'src_'.$lastres}) {
my $brepriv=
&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});
if (($brepriv eq '2') \|\| ($brepriv eq 'F')) {
$rows[$#rows+1]=''.$lastres;
}
}

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