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); |