Diff for /rat/lonratsrv.pm between versions 1.31 and 1.32

version 1.31, 2005/06/08 15:18:28 version 1.32, 2005/06/13 20:23:53
Line 292  sub savemap { Line 292  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 $result=&Apache::lonnet::finishuserfileupload($2,$1,
             my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home,       'output',$3);
  '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. ';
     }      }

Removed from v.1.31  
changed lines
  Added in v.1.32


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>