Diff for /rat/lonratsrv.pm between versions 1.22 and 1.23

version 1.22, 2002/08/31 00:42:30 version 1.23, 2002/09/05 19:37:00
Line 218  sub savemap { Line 218  sub savemap {
         } else {          } else {
             $outstr="<map>\n";              $outstr="<map>\n";
         }          }
         map {          foreach (@tags) {
    my @parts=split(/<:>/,$_);     my @parts=split(/<:>/,$_);
            if ($parts[0] eq 'objcont') {             if ($parts[0] eq 'objcont') {
                my @comp=split(/:/,$parts[$#parts]);                 my @comp=split(/:/,$parts[$#parts]);
Line 289  sub savemap { Line 289  sub savemap {
                $outstr.=' value="'.qtescape($parts[$#parts]).'"></'.                 $outstr.=' value="'.qtescape($parts[$#parts]).'"></'.
                         $parts[0].">\n";                          $parts[0].">\n";
            }             }
         } @tags;          }
         $outstr.="</map>\n";          $outstr.="</map>\n";
  if ($fn=~/^\/*uploaded\//) {   if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\//) {
     $ENV{'form.output'}=$outstr;      $ENV{'form.output'}=$outstr;
               my $home=&Apache::lonnet::homeserver($2,$1);
             &Apache::lonnet::finishuserfileupload(              &Apache::lonnet::finishuserfileupload(
               $ENV{'course.'.$ENV{'request.course.id'}.'.num'},                $2,$1,$home,
               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},  
               $ENV{'course.'.$ENV{'request.course.id'}.'.home'},  
               'output',(split(/\//,$fn))[-1]);                'output',(split(/\//,$fn))[-1]);
         } else {          } else {
           my $fh;            my $fh;

Removed from v.1.22  
changed lines
  Added in v.1.23


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