rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.25, 2004/02/11 00:10:01	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 67 sub qtunescape {	Line 61 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 293 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);
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home,	my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home,
'output',(split(/\//,$fn))[-1]);	'output',$3);
if ($result != m\|^/uploaded/\|) {	if ($result != m\|^/uploaded/\|) {
$errtext.='Map not saved: A network error occured when trying to save the map. ';	$errtext.='Map not saved: A network error occured when trying to save the map. ';
}	}