rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.97, 2005/11/09 11:39:57	version 1.98, 2005/11/15 18:27:52
Line 31 package Apache::lonuserstate;	Line 31 package Apache::lonuserstate;

# ------------------------------------------------- modules used by this module	# ------------------------------------------------- modules used by this module
use strict;	use strict;
use Apache::Constants qw(:common :http);
use HTML::TokeParser;	use HTML::TokeParser;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
Line 104 sub processversionfile {	Line 103 sub processversionfile {

sub loadmap {	sub loadmap {
my $uri=shift;	my $uri=shift;
if ($hash{'map_pc_'.$uri}) { return OK; }	if ($hash{'map_pc_'.$uri}) { return; }

$pc++;	$pc++;
my $lpc=$pc;	my $lpc=$pc;
Line 119 sub loadmap {	Line 118 sub loadmap {
unless (($fn=~/\.sequence$/) \|\|	unless (($fn=~/\.sequence$/) \|\|
($fn=~/\.page$/)) {	($fn=~/\.page$/)) {
$errtext.="Invalid map: $fn\n";	$errtext.="Invalid map: $fn\n";
return OK;	return;
}	}

my $instr=&Apache::lonnet::getfile($fn);	my $instr=&Apache::lonnet::getfile($fn);