--- rat/lonratsrv.pm	2002/08/19 21:15:08	1.21
+++ rat/lonratsrv.pm	2002/09/05 19:37:00	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Server for RAT Maps
 #
-# $Id: lonratsrv.pm,v 1.21 2002/08/19 21:15:08 www Exp $
+# $Id: lonratsrv.pm,v 1.23 2002/09/05 19:37:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,8 +205,8 @@ sub savemap {
     my ($fn,$errtext)=@_;
     my %alltypes;
     my %allvalues;
-    if (($fn=~/\.sequence$/) ||
-        ($fn=~/\.page$/)) {
+    if (($fn=~/\.sequence(\.tmp)*$/) ||
+        ($fn=~/\.page(\.tmp)*$/)) {
 
 # ------------------------------------------------------------- Deal with input
         my @tags=split(/<&>/,$ENV{'form.output'});
@@ -218,7 +218,7 @@ sub savemap {
         } else {
             $outstr="<map>\n";
         }
-        map {
+        foreach (@tags) {
 	   my @parts=split(/<:>/,$_);
            if ($parts[0] eq 'objcont') {
                my @comp=split(/:/,$parts[$#parts]);
@@ -289,14 +289,13 @@ sub savemap {
                $outstr.=' value="'.qtescape($parts[$#parts]).'"></'.
                         $parts[0].">\n";
            }
-        } @tags;
+        }
         $outstr.="</map>\n";
-	if ($fn=~/^\/*uploaded\//) {
+	if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\//) {
 	    $ENV{'form.output'}=$outstr;
+            my $home=&Apache::lonnet::homeserver($2,$1);
             &Apache::lonnet::finishuserfileupload(
-              $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
-              $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-              $ENV{'course.'.$ENV{'request.course.id'}.'.home'},
+              $2,$1,$home,
               'output',(split(/\//,$fn))[-1]);
         } else {
           my $fh;