rat/map.pm - diff

Return to map.pm CVS log

Up to [LON-CAPA] / rat

version 1.1, 2006/08/17 22:35:51	version 1.3, 2006/12/05 02:55:55
Line 475 sub loadmap {	Line 475 sub loadmap {
}	}
if ($instr eq -2) {	if ($instr eq -2) {
$errtext.='Map not loaded: An error occured while trying to load the map.';	$errtext.='Map not loaded: An error occured while trying to load the map.';
	} elsif ($instr eq '-1') {
	$errtext.=&mt('Map not loaded: The file [_1] does not exist.',$fn);
} elsif ($instr) {	} elsif ($instr) {
my $parser = HTML::TokeParser->new(\$instr);	my $parser = HTML::TokeParser->new(\$instr);
my $token;	my $token;
Line 688 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);