version 1.31.2.1, 2002/08/30 22:28:05
|
version 1.31.2.2, 2002/09/04 19:11:24
|
Line 547 sub smpedt {
|
Line 547 sub smpedt {
|
# ------------------------------------------------------------ Assemble windows |
# ------------------------------------------------------------ Assemble windows |
|
|
my $idx=-1; |
my $idx=-1; |
|
$importdetail='&'.$importdetail; |
|
$importdetail=~s/^\&+/\&/; |
my $importwindow= |
my $importwindow= |
'<option value="-1"> ---- Import and Paste Area ---- </option>'. |
'<option value="-1"> ---- Import and Paste Area ---- </option>'. |
join("\n",map { |
join("\n",map { |