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

version 1.19, 2002/05/15 21:28:08 version 1.20, 2002/05/16 21:10:05
Line 274  sub buttons { Line 274  sub buttons {
     return $output.'</form><hr>';      return $output.'</form><hr>';
 }  }
   
   # ----------------------------------------------------------- Paste into target
   # modifies @order, @resources
   
   sub pastetarget {
       my ($after,@which)=@_;
       my @insertorder=();
       foreach (@which) {
           if (defined($_)) {
       my ($name,$url)=split(/\=/,$_);
       my $idx=$#resources+1;
               $insertorder[$#insertorder+1]=$idx;
               my $ext='false';
               if ($url=~/^http\:\/\//) { $ext='true'; }
               $resources[$idx]=$name.':'.$url.':normal:'.$ext.':res';
           }
       }
       print "insertorder:".join(',',@insertorder).'<br>';
       print "order:".join(',',@order).'<br>';
       my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
       print "oldorder:".join(',',@oldorder).'<br>';
       print "order:".join(',',@order).'<br>';
       @order=push(@order,@oldorder);
       print "order:".join(',',@order).'<br>';
   }
   
   # ------------------------------------------------------- Simple edit processor
   
 sub smpedt {  sub smpedt {
    my ($r,$errtext)=@_;     my ($r,$errtext)=@_;
    my $buttons=&buttons(2);     my $buttons=&buttons(2);
Line 389  sub smpedt { Line 416  sub smpedt {
        $importdetail=~s/\&+/\&/g;         $importdetail=~s/\&+/\&/g;
        $importdetail=~s/^\&//;         $importdetail=~s/^\&//;
   
 # ------------------------------------  # ------------------------------------------------ Groupimport/search to target
    }     } elsif ($ENV{'form.importdetail'}) {
          my $lastsel;
   
          if (defined($targetselect[-1])) {
      $lastsel=$targetselect[-1];
          } else {
              $lastsel=$#order;
          }
          &pastetarget($lastsel,split(/\&/,$ENV{'form.importdata'}));
   # ------------------------------------------------------------------------- Cut
      } elsif ($ENV{'form.cut'}) {
   # ----------------------------------------------------------------------- Paste
      } elsif ($ENV{'form.paste'}) {
   # ------------------------------------------------ 
      }
 # ------------------------------------------------------------ Assemble windows  # ------------------------------------------------------------ Assemble windows
      
    my $idx=-1;     my $idx=-1;
    my $importwindow=join("\n",map {     my $importwindow=join("\n",map {
        $idx++;         $idx++;
Line 414  sub smpedt { Line 454  sub smpedt {
        $targetdetail.='&'.&Apache::lonnet::escape($name).'='.         $targetdetail.='&'.&Apache::lonnet::escape($name).'='.
                   &Apache::lonnet::escape($url);                    &Apache::lonnet::escape($url);
        $idx++;         $idx++;
        '<option value="'.$idx.'_'.$_.'">'.$name.'</option>';         '<option value="'.$idx.'">'.$name.'</option>';
    } @order);     } @order);
   
 # ----------------------------------------------------- Start simple RAT screen  # ----------------------------------------------------- Start simple RAT screen
Line 527  function idxcheck(mode) { Line 567  function idxcheck(mode) {
   
    function openview(entry) {     function openview(entry) {
        var url=unescape((entry.split('='))[1]);         var url=unescape((entry.split('='))[1]);
          var parts=new Array;
          parts=url.split('&colon;');
          url=parts.join(':');
        if (url) { open(url,'cat'); }         if (url) { open(url,'cat'); }
    }     }
   

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


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