version 1.22, 2002/08/31 00:42:30
|
version 1.23, 2002/09/05 19:37:00
|
Line 218 sub savemap {
|
Line 218 sub savemap {
|
} else { |
} else { |
$outstr="<map>\n"; |
$outstr="<map>\n"; |
} |
} |
map { |
foreach (@tags) { |
my @parts=split(/<:>/,$_); |
my @parts=split(/<:>/,$_); |
if ($parts[0] eq 'objcont') { |
if ($parts[0] eq 'objcont') { |
my @comp=split(/:/,$parts[$#parts]); |
my @comp=split(/:/,$parts[$#parts]); |
Line 289 sub savemap {
|
Line 289 sub savemap {
|
$outstr.=' value="'.qtescape($parts[$#parts]).'"></'. |
$outstr.=' value="'.qtescape($parts[$#parts]).'"></'. |
$parts[0].">\n"; |
$parts[0].">\n"; |
} |
} |
} @tags; |
} |
$outstr.="</map>\n"; |
$outstr.="</map>\n"; |
if ($fn=~/^\/*uploaded\//) { |
if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\//) { |
$ENV{'form.output'}=$outstr; |
$ENV{'form.output'}=$outstr; |
|
my $home=&Apache::lonnet::homeserver($2,$1); |
&Apache::lonnet::finishuserfileupload( |
&Apache::lonnet::finishuserfileupload( |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
$2,$1,$home, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}, |
|
'output',(split(/\//,$fn))[-1]); |
'output',(split(/\//,$fn))[-1]); |
} else { |
} else { |
my $fh; |
my $fh; |