Return to map.pm CVS log | Up to [LON-CAPA] / rat |
version 1.2, 2006/12/04 14:59:55 | version 1.3, 2006/12/05 02:55:55 |
---|---|
Line 690 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); |