version 1.47, 2002/03/25 19:33:35
|
version 1.48, 2002/03/26 16:08:46
|
Line 557 sub assessparms {
|
Line 557 sub assessparms {
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
$r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
$r->print('<option value=all>All Maps</option>'); |
$r->print('<option value=all>All Maps</option>'); |
foreach (keys %allmaps) { |
foreach (sort keys %allmaps) { |
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$_.'"'); |
if (($pssymb=~/^$allmaps{$_}/) || |
if (($pssymb=~/^$allmaps{$_}/) || |
($pschp eq $_)) { $r->print(' selected'); } |
($pschp eq $_)) { $r->print(' selected'); } |