loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'); }