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 |