version 1.20, 2002/06/27 17:00:12
|
version 1.21, 2002/08/19 21:15:08
|
Line 69 sub qtunescape {
|
Line 69 sub qtunescape {
|
sub loadmap { |
sub loadmap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
my $outstr=''; |
my $outstr=''; |
my @content=(); |
|
my @obj=(); |
my @obj=(); |
my @links=(); |
my @links=(); |
if (-e $fn) { |
my $instr=''; |
|
if ($fn=~/^\/*uploaded\//) { |
|
$instr=&Apache::lonnet::getfile($fn); |
|
} elsif (-e $fn) { |
|
my @content=(); |
{ |
{ |
my $fh=Apache::File->new($fn); |
my $fh=Apache::File->new($fn); |
@content=<$fh>; |
@content=<$fh>; |
} |
} |
my $instr=join('',@content); |
$instr=join('',@content); |
|
} |
|
if ($instr) { |
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
my $token; |
my $token; |
my $graphmode=0; |
my $graphmode=0; |
Line 286 sub savemap {
|
Line 291 sub savemap {
|
} |
} |
} @tags; |
} @tags; |
$outstr.="</map>\n"; |
$outstr.="</map>\n"; |
{ |
if ($fn=~/^\/*uploaded\//) { |
|
$ENV{'form.output'}=$outstr; |
|
&Apache::lonnet::finishuserfileupload( |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}, |
|
'output',(split(/\//,$fn))[-1]); |
|
} else { |
my $fh; |
my $fh; |
if ($fh=Apache::File->new(">$fn")) { |
if ($fh=Apache::File->new(">$fn")) { |
print $fh $outstr; |
print $fh $outstr; |