Diff for /rat/lonratedt.pm between versions 1.23 and 1.24

version 1.23, 2002/05/21 13:41:13 version 1.24, 2002/05/21 15:04:10
Line 355  sub smpedt { Line 355  sub smpedt {
    undef @targetselect;     undef @targetselect;
    if (defined($ENV{'form.import'})) {     if (defined($ENV{'form.import'})) {
        if (ref($ENV{'form.import'})) {         if (ref($ENV{'form.import'})) {
    @importselect=sort($ENV->{'form.import'});     @importselect=sort(@{ $ENV{'form.import'} });
        } else {         } else {
            @importselect=($ENV{'form.import'});             @importselect=($ENV{'form.import'});
        }         }
    }     }
    if (defined($ENV{'form.target'})) {     if (defined($ENV{'form.target'})) {
        if (ref($ENV{'form.target'})) {         if (ref($ENV{'form.target'})) {
    @targetselect=sort($ENV->{'form.target'});     @targetselect=sort(@{ $ENV->{'form.target'} });
        } else {         } else {
            @targetselect=($ENV{'form.target'});             @targetselect=($ENV{'form.target'});
        }         }
Line 472  sub smpedt { Line 472  sub smpedt {
    } elsif ($ENV{'form.cut'}) {     } elsif ($ENV{'form.cut'}) {
 # ----------------------------------------------------------------------- Paste  # ----------------------------------------------------------------------- Paste
    } elsif ($ENV{'form.paste'}) {     } elsif ($ENV{'form.paste'}) {
          my $lastsel;
          if (defined($targetselect[-1])) {
      $lastsel=$targetselect[-1];
          } else {
              $lastsel=$#order+1;
          }
          my @newsequence;
          my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
          foreach (@importselect) {
             $newsequence[$#newsequence+1]=$curimport[$_];
          }
          &pastetarget($lastsel,@newsequence);
          &storemap(&Apache::lonnet::filelocation('',$url));
 # ------------------------------------------------   # ------------------------------------------------ 
    }     }
 # ------------------------------------------------------------ Assemble windows  # ------------------------------------------------------------ Assemble windows

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


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