version 1.22, 2002/08/31 00:42:30
|
version 1.27, 2004/04/23 17:30:33
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Edit Handler for RAT Maps |
|
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30 Gerd Kortemeyer) |
|
# 7/1 Gerd Kortemeyer) |
|
# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer |
|
# 4/30/2001 Scott Harrison |
|
# 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer |
|
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 82 sub loadmap {
|
Line 75 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 218 sub savemap {
|
Line 213 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 284 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; |
&Apache::lonnet::finishuserfileupload( |
my $home=&Apache::lonnet::homeserver($2,$1); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
'output',$3); |
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}, |
if ($result != m|^/uploaded/|) { |
'output',(split(/\//,$fn))[-1]); |
$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")) { |