rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.24, 2003/02/03 18:03:53	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
# 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer

package Apache::lonratsrv;	package Apache::lonratsrv;

Line 81 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 290 sub savemap {	Line 286 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);
&Apache::lonnet::finishuserfileupload(	my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home,
$2,$1,$home,	'output',$3);
'output',(split(/\//,$fn))[-1]);	if ($result != m\|^/uploaded/\|) {
	$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")) {