version 1.36, 2002/07/30 20:01:40
|
version 1.44, 2002/10/07 13:50:36
|
Line 68 my @cond; # Array with all of the con
|
Line 68 my @cond; # Array with all of the con
|
my $errtext; # variable with all errors |
my $errtext; # variable with all errors |
my $retfurl; # variable with the very first URL in the course |
my $retfurl; # variable with the very first URL in the course |
my %randompick; # randomly picked resources |
my %randompick; # randomly picked resources |
|
my %actualversion # version of resource as loaded now |
|
my %setversion # forced version of resource |
|
my %lastversion # version when CC came in last |
|
my $versionmode # how versioning is handled in this course |
|
my $hasversionpriv # user has versioning privileges |
# --------------------------------------------------------- Loads map from disk |
# --------------------------------------------------------- Loads map from disk |
|
|
sub loadmap { |
sub loadmap { |
Line 79 sub loadmap {
|
Line 84 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 95 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 135 sub loadmap {
|
Line 123 sub loadmap {
|
unless ($ispage) { |
unless ($ispage) { |
$turi=~/\.(\w+)$/; |
$turi=~/\.(\w+)$/; |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
if ($token->[2]->{'external'} eq 'true') { |
if ($token->[2]->{'external'} eq 'true') { # external |
$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//; |
$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//; |
} else { |
} elsif ($turi=~/^\/*uploaded\//) { # uploaded |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
if (($embstyle eq 'img') || ($embstyle eq 'emb') |
if (($embstyle eq 'img') || ($embstyle eq 'emb')) { |
|| ($embstyle eq 'ssi')) { |
|
$turi='/adm/wrapper'.$turi; |
|
} elsif ($turi!~/\.(sequence|page)$/) { |
|
$turi='/adm/coursedocs/showdoc'.$turi; |
|
} |
|
} else { # normal internal resource |
|
if (($embstyle eq 'img') || ($embstyle eq 'emb') |
|
|| ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) { |
$turi='/adm/wrapper'.$turi; |
$turi='/adm/wrapper'.$turi; |
} |
} |
} |
} |
Line 479 sub readmap {
|
Line 474 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'; |