rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.9, 2000/09/30 17:26:28	version 1.11, 2000/10/11 18:31:00
Line 11	Line 11
# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer)	# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer)
#	#
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,	# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,
# 9/2,9/4,9/29,9/30 Gerd Kortemeyer	# 9/2,9/4,9/29,9/30,10/2,10/11 Gerd Kortemeyer

package Apache::lonuserstate;	package Apache::lonuserstate;

Line 42 sub loadmap {	Line 42 sub loadmap {

my $fn='/home/httpd/html'.$uri;	my $fn='/home/httpd/html'.$uri;

unless (($fn=~/\.course$/) \|\|	unless (($fn=~/\.sequence$/) \|\|
($fn=~/\.sequence$/) \|\|
($fn=~/\.page$/)) {	($fn=~/\.page$/)) {
$errtext.="Invalid map: $fn\n";	$errtext.="Invalid map: $fn\n";
return OK;	return OK;
Line 117 sub loadmap {	Line 116 sub loadmap {
$hash{'type_'.$rid}='normal';	$hash{'type_'.$rid}='normal';
}	}

if (($turi=~/\.course$/) \|\|	if (($turi=~/\.sequence$/) \|\|
($turi=~/\.sequence$/) \|\|
($turi=~/\.page$/)) {	($turi=~/\.page$/)) {
$hash{'is_map_'.$rid}=1;	$hash{'is_map_'.$rid}=1;
&loadmap($turi);	&loadmap($turi);
Line 312 sub readmap {	Line 310 sub readmap {
return 'No course data available.';	return 'No course data available.';
}	}
@cond=('true:normal');	@cond=('true:normal');
	unlink($fn.'.db');
	unlink($fn.'_symb.db');
	unlink($fn.'.state');
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT,0640)) {	if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT,0640)) {
%hash=();	%hash=();
$errtext='';	$errtext='';