version 1.873, 2009/07/31 03:14:20
|
version 1.874, 2009/07/31 03:24:30
|
Line 1815 The optional $onchange argumnet specifie
|
Line 1815 The optional $onchange argumnet specifie
|
sub select_dom_form { |
sub select_dom_form { |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_; |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_; |
if ($onchange) { |
if ($onchange) { |
' onchange="'.$onchange.'"'; |
$onchange = ' onchange="'.$onchange.'"'; |
} |
} |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
if ($includeempty) { @domains=('',@domains); } |
if ($includeempty) { @domains=('',@domains); } |