version 1.36, 2002/07/30 20:01:40
|
version 1.38, 2002/08/17 18:23:27
|
Line 79 sub loadmap {
|
Line 79 sub loadmap {
|
$hash{'map_pc_'.$uri}=$lpc; |
$hash{'map_pc_'.$uri}=$lpc; |
$hash{'map_id_'.$lpc}=$uri; |
$hash{'map_id_'.$lpc}=$uri; |
|
|
my $fn='/home/httpd/html'.$uri; |
# Determine and check filename |
|
my $fn=&Apache::lonnet::filelocation('',$uri); |
|
|
|
my $ispage=($fn=~/\.page$/); |
|
|
unless (($fn=~/\.sequence$/) || |
unless (($fn=~/\.sequence$/) || |
($fn=~/\.page$/)) { |
($fn=~/\.page$/)) { |
Line 87 sub loadmap {
|
Line 90 sub loadmap {
|
return OK; |
return OK; |
} |
} |
|
|
my $ispage=($fn=~/\.page$/); |
my $instr=&Apache::lonnet::getfile($fn); |
|
|
unless (-e $fn) { |
unless ($instr == -1) { |
my $returned=Apache::lonnet::repcopy($fn); |
|
unless ($returned eq OK) { |
# Successfully got file, parse it |
$errtext.="Could not import: $fn - "; |
|
if ($returned eq HTTP_SERVICE_UNAVAILABLE) { |
|
$errtext.="Server unavailable\n"; |
|
} |
|
if ($returned eq HTTP_NOT_FOUND) { |
|
$errtext.="File not found\n"; |
|
} |
|
if ($returned eq FORBIDDEN) { |
|
$errtext.="Access forbidden\n"; |
|
} |
|
return OK; |
|
} |
|
} |
|
|
|
if (-e $fn) { |
|
my @content; |
|
{ |
|
my $fh=Apache::File->new($fn); |
|
@content=<$fh>; |
|
} |
|
my $instr=join('',@content); |
|
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
my $token; |
my $token; |
|
|
Line 479 sub readmap {
|
Line 462 sub readmap {
|
%parmhash=(); |
%parmhash=(); |
$errtext=''; |
$errtext=''; |
$pc=0; |
$pc=0; |
my $furi='/res/'.&Apache::lonnet::declutter($uri); |
my $furi=&Apache::lonnet::clutter($uri); |
$hash{'src_0.0'}=$furi; |
$hash{'src_0.0'}=$furi; |
$hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title'); |
$hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title'); |
$hash{'ids_'.$furi}='0.0'; |
$hash{'ids_'.$furi}='0.0'; |