version 1.25, 2004/02/11 00:10:01
|
version 1.26, 2004/03/29 19:44:41
|
Line 293 sub savemap {
|
Line 293 sub savemap {
|
} |
} |
} |
} |
$outstr.="</map>\n"; |
$outstr.="</map>\n"; |
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); |
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home, |
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home, |
'output',(split(/\//,$fn))[-1]); |
'output',$3); |
if ($result != m|^/uploaded/|) { |
if ($result != m|^/uploaded/|) { |
$errtext.='Map not saved: A network error occured when trying to save the map. '; |
$errtext.='Map not saved: A network error occured when trying to save the map. '; |
} |
} |