version 1.65, 2005/04/07 06:56:27
|
version 1.66, 2005/04/07 07:34:52
|
Line 733 sub smpedt {
|
Line 733 sub smpedt {
|
} |
} |
# ---------------------------------------------------------- Process form input |
# ---------------------------------------------------------- Process form input |
|
|
my @importselect=(); |
my @importselect=&Apache::loncommon::get_env_multiple('form.importsel'); |
my @targetselect=(); |
my @targetselect=&Apache::loncommon::get_env_multiple('form.target'); |
undef @importselect; |
|
undef @targetselect; |
|
if (defined($env{'form.importsel'})) { |
|
if (ref($env{'form.importsel'})) { |
|
@importselect=sort(@{$env{'form.importsel'}}); |
|
} else { |
|
@importselect=($env{'form.importsel'}); |
|
} |
|
} |
|
if (defined($env{'form.target'})) { |
|
if (ref($env{'form.target'})) { |
|
@targetselect=sort(@{$env{'form.target'}}); |
|
} else { |
|
@targetselect=($env{'form.target'}); |
|
} |
|
} |
|
# ============================================================ Process commands |
# ============================================================ Process commands |
|
|
my $targetdetail=$env{'form.targetdetail'}; |
my $targetdetail=$env{'form.targetdetail'}; |