version 1.24, 2003/02/03 18:03:53
|
version 1.25, 2004/02/11 00:10:01
|
Line 67 sub qtunescape {
|
Line 67 sub qtunescape {
|
|
|
sub loadmap { |
sub loadmap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
|
if ($errtext) { return('',$errtext); } |
my $outstr=''; |
my $outstr=''; |
my @obj=(); |
my @obj=(); |
my @links=(); |
my @links=(); |
Line 81 sub loadmap {
|
Line 82 sub loadmap {
|
} |
} |
$instr=join('',@content); |
$instr=join('',@content); |
} |
} |
if ($instr) { |
if ($instr eq -2) { |
|
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
|
} elsif ($instr) { |
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
my $token; |
my $token; |
my $graphmode=0; |
my $graphmode=0; |
Line 293 sub savemap {
|
Line 296 sub savemap {
|
if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\//) { |
if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\//) { |
$ENV{'form.output'}=$outstr; |
$ENV{'form.output'}=$outstr; |
my $home=&Apache::lonnet::homeserver($2,$1); |
my $home=&Apache::lonnet::homeserver($2,$1); |
&Apache::lonnet::finishuserfileupload( |
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home, |
$2,$1,$home, |
'output',(split(/\//,$fn))[-1]); |
'output',(split(/\//,$fn))[-1]); |
if ($result != m|^/uploaded/|) { |
|
$errtext.='Map not saved: A network error occured when trying to save the map. '; |
|
} |
} else { |
} else { |
my $fh; |
my $fh; |
if ($fh=Apache::File->new(">$fn")) { |
if ($fh=Apache::File->new(">$fn")) { |