loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.164, 2007/09/27 15:36:23	version 1.165, 2007/10/01 18:45:40
Line 682 Returns: a perl string as described.	Line 682 Returns: a perl string as described.
##############################################	##############################################
##############################################	##############################################
sub StatusOptions {	sub StatusOptions {
my ($status, $formName,$size,$onchange)=@_;	my ($status, $formName,$size,$onchange,$mult)=@_;
$size = 1 if (!defined($size));	$size = 1 if (!defined($size));
if (! defined($status)) {	if (! defined($status)) {
$status = 'Active';	$status = 'Active';
Line 691 sub StatusOptions {	Line 691 sub StatusOptions {

my $Str = '';	my $Str = '';
$Str .= '<select name="Status"';	$Str .= '<select name="Status"';
	if (defined($mult)){
	$Str .= ' multiple="multiple" ';
	}
if(defined($formName) && $formName ne '' && ! defined($onchange)) {	if(defined($formName) && $formName ne '' && ! defined($onchange)) {
$Str .= ' onchange="document.'.$formName.'.submit()"';	$Str .= ' onchange="document.'.$formName.'.submit()"';
}	}