version 1.164, 2003/02/03 04:02:17
|
version 1.165, 2003/02/10 21:22:59
|
Line 570 ENDHEADER
|
Line 570 ENDHEADER
|
my @domains =&Apache::loncommon::get_domains(); |
my @domains =&Apache::loncommon::get_domains(); |
# adjust the size of the select box |
# adjust the size of the select box |
my $size = 4; |
my $size = 4; |
my $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</b></font><br />'. |
'<select name="domains" size="'.$size.'" multiple>'."\n". |
'<select name="domains" size="'.$size.'" multiple>'."\n". |