version 1.1, 2006/08/17 22:35:51
|
version 1.3, 2006/12/05 02:55:55
|
Line 475 sub loadmap {
|
Line 475 sub loadmap {
|
} |
} |
if ($instr eq -2) { |
if ($instr eq -2) { |
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
|
} elsif ($instr eq '-1') { |
|
$errtext.=&mt('Map not loaded: The file [_1] does not exist.',$fn); |
} elsif ($instr) { |
} elsif ($instr) { |
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
my $token; |
my $token; |
Line 688 sub savemap {
|
Line 690 sub savemap {
|
} |
} |
} |
} |
$outstr.="</map>\n"; |
$outstr.="</map>\n"; |
if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\/(.*)$/) { |
if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) { |
$env{'form.output'}=$outstr; |
$env{'form.output'}=$outstr; |
my $result=&Apache::lonnet::finishuserfileupload($2,$1, |
my $result=&Apache::lonnet::finishuserfileupload($2,$1, |
'output',$3); |
'output',$3); |