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.25, 2004/02/11 00:10:01
Line 67 sub qtunescape {	Line 67 sub qtunescape {

sub loadmap {	sub loadmap {
my ($fn,$errtext)=@_;	my ($fn,$errtext)=@_;
	if ($errtext) { return('',$errtext); }
my $outstr='';	my $outstr='';
my @obj=();	my @obj=();
my @links=();	my @links=();
Line 81 sub loadmap {	Line 82 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 293 sub savemap {	Line 296 sub savemap {
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',(split(/\//,$fn))[-1]);
'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")) {