Diff for /rat/lonratsrv.pm between versions 1.21 and 1.24

version 1.21, 2002/08/19 21:15:08 version 1.24, 2003/02/03 18:03:53
Line 31 Line 31
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 7/1 Gerd Kortemeyer)  # 7/1 Gerd Kortemeyer)
 # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer  # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer
 # 4/30/2001 Scott Harrison  
 # 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer  # 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer
   
 package Apache::lonratsrv;  package Apache::lonratsrv;
Line 205  sub savemap { Line 204  sub savemap {
     my ($fn,$errtext)=@_;      my ($fn,$errtext)=@_;
     my %alltypes;      my %alltypes;
     my %allvalues;      my %allvalues;
     if (($fn=~/\.sequence$/) ||      if (($fn=~/\.sequence(\.tmp)*$/) ||
         ($fn=~/\.page$/)) {          ($fn=~/\.page(\.tmp)*$/)) {
   
 # ------------------------------------------------------------- Deal with input  # ------------------------------------------------------------- Deal with input
         my @tags=split(/<&>/,$ENV{'form.output'});          my @tags=split(/<&>/,$ENV{'form.output'});
Line 218  sub savemap { Line 217  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 288  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.21  
changed lines
  Added in v.1.24


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