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); |