loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.173, 2003/05/21 14:43:46	version 1.174, 2003/05/27 20:12:26
Line 720 ENDHEADER	Line 720 ENDHEADER
my $size = 4;	my $size = 4;
$size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);	$size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);
$scrout.="\n".'<font color="#800000" face="helvetica"><b>'.	$scrout.="\n".'<font color="#800000" face="helvetica"><b>'.
'DOMAINS</b></font><br />'.	'DOMAINS TO BE SEARCHED</b></font><br />'.
'<select name="domains" size="'.$size.'" multiple>'."\n".	'<select name="domains" size="'.$size.'" multiple>'."\n".
'<option name="any" value="any" '.	'<option name="any" value="any" '.
($domain_hash{'any'}? 'selected ' :'').	($domain_hash{'any'}? 'selected ' :'').