Diff for /rat/lonratedt.pm between versions 1.20 and 1.21

version 1.20, 2002/05/16 21:10:05 version 1.21, 2002/05/18 18:24:34
Line 283  sub pastetarget { Line 283  sub pastetarget {
     foreach (@which) {      foreach (@which) {
         if (defined($_)) {          if (defined($_)) {
     my ($name,$url)=split(/\=/,$_);      my ($name,$url)=split(/\=/,$_);
     my $idx=$#resources+1;              $name=&Apache::lonnet::unescape($name);
             $insertorder[$#insertorder+1]=$idx;              $url=&Apache::lonnet::unescape($url);
             my $ext='false';              if ($url) {
             if ($url=~/^http\:\/\//) { $ext='true'; }         my $idx=$#resources+1;
             $resources[$idx]=$name.':'.$url.':normal:'.$ext.':res';                 $insertorder[$#insertorder+1]=$idx;
                  my $ext='false';
                  if ($url=~/^http\:\/\//) { $ext='true'; }
                  $url=~s/\:/\:/g;
                  $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
      }
         }          }
     }      }
     print "insertorder:".join(',',@insertorder).'<br>';  
     print "order:".join(',',@order).'<br>';  
     my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);      my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
     print "oldorder:".join(',',@oldorder).'<br>';      @order=(@order,@oldorder);
     print "order:".join(',',@order).'<br>';  }
     @order=push(@order,@oldorder);  
     print "order:".join(',',@order).'<br>';  # ------------------------------------------------ Get start and finish correct
   # modifies @resources
   
   sub startfinish {
       foreach (@order) {
    my ($name,$url,$ext)=split(/\:/,$resources[$_]);
           $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';
       }
      my ($name,$url,$ext)=split(/\:/,$resources[0]);
      $resources[0]=$name.':'.$url.':'.$ext.':start:res';
      my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
      $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
 }  }
   
 # ------------------------------------------------------- Simple edit processor  # ------------------------------------------------------- Simple edit processor
Line 425  sub smpedt { Line 439  sub smpedt {
        } else {         } else {
            $lastsel=$#order;             $lastsel=$#order;
        }         }
        &pastetarget($lastsel,split(/\&/,$ENV{'form.importdata'}));         &pastetarget($lastsel,split(/\&/,$ENV{'form.importdetail'}));
          &startfinish();
 # ------------------------------------------------------------------------- Cut  # ------------------------------------------------------------------------- Cut
    } elsif ($ENV{'form.cut'}) {     } elsif ($ENV{'form.cut'}) {
 # ----------------------------------------------------------------------- Paste  # ----------------------------------------------------------------------- Paste

Removed from v.1.20  
changed lines
  Added in v.1.21


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