loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.162, 2007/09/14 23:24:18	version 1.166, 2007/10/04 01:16:58
Line 481 ENDJS	Line 481 ENDJS
return $result;	return $result;
}	}


	sub build_url {
	my ($base, $fields)=@_;
	my $url;
	$url = $base.'?';
	foreach my $key(keys(%$fields)) {
	$url.=$key.'='.$$fields{$key}.'&';
	}
	$url =~ s/&$//;
	return $url;
	}


##############################################	##############################################
##############################################	##############################################

Line 682 Returns: a perl string as described.	Line 695 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 704 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()"';
}	}