rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.29, 2005/02/17 09:09:57	version 1.30, 2005/04/07 06:56:27
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File;	use Apache::File;
use HTML::TokeParser;	use HTML::TokeParser;
	use Apache::lonnet;

# ------------------------------------------------------------- From RAT to XML	# ------------------------------------------------------------- From RAT to XML

Line 205 sub savemap {	Line 205 sub savemap {
($fn=~/\.page(\.tmp)*$/)) {	($fn=~/\.page(\.tmp)*$/)) {

# ------------------------------------------------------------- Deal with input	# ------------------------------------------------------------- Deal with input
my @tags=split(/<&>/,$ENV{'form.output'});	my @tags=split(/<&>/,$env{'form.output'});
my $outstr='';	my $outstr='';
my $graphdef=0;	my $graphdef=0;
if ($tags[0] eq 'graphdef<:>yes') {	if ($tags[0] eq 'graphdef<:>yes') {
Line 288 sub savemap {	Line 288 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',$3);	'output',$3);