rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.20, 2002/06/27 17:00:12	version 1.21, 2002/08/19 21:15:08
Line 69 sub qtunescape {	Line 69 sub qtunescape {
sub loadmap {	sub loadmap {
my ($fn,$errtext)=@_;	my ($fn,$errtext)=@_;
my $outstr='';	my $outstr='';
my @content=();
my @obj=();	my @obj=();
my @links=();	my @links=();
if (-e $fn) {	my $instr='';
	if ($fn=~/^\/*uploaded\//) {
	$instr=&Apache::lonnet::getfile($fn);
	} elsif (-e $fn) {
	my @content=();
{	{
my $fh=Apache::File->new($fn);	my $fh=Apache::File->new($fn);
@content=<$fh>;	@content=<$fh>;
}	}
my $instr=join('',@content);	$instr=join('',@content);
	}
	if ($instr) {
my $parser = HTML::TokeParser->new(\$instr);	my $parser = HTML::TokeParser->new(\$instr);
my $token;	my $token;
my $graphmode=0;	my $graphmode=0;
Line 286 sub savemap {	Line 291 sub savemap {
}	}
} @tags;	} @tags;
$outstr.="</map>\n";	$outstr.="</map>\n";
{	if ($fn=~/^\/*uploaded\//) {
	$ENV{'form.output'}=$outstr;
	&Apache::lonnet::finishuserfileupload(
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.home'},
	'output',(split(/\//,$fn))[-1]);
	} else {
my $fh;	my $fh;
if ($fh=Apache::File->new(">$fn")) {	if ($fh=Apache::File->new(">$fn")) {
print $fh $outstr;	print $fh $outstr;