loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.89, 2003/03/20 19:20:31	version 1.90, 2003/03/26 19:34:42
Line 627 sub select_form {	Line 627 sub select_form {

=pod	=pod

=item select_dom_form($defdom,$name)	=item select_dom_form($defdom,$name,$includeempty)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select the domain to preform an operation in.	allow a user to select the domain to preform an operation in.
See loncreateuser.pm for an example invocation and use.	See loncreateuser.pm for an example invocation and use.

	If the $includeempty flag is set, it also includes an empty choice ("no domain
	selected");

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name) = @_;	my ($defdom,$name,$includeempty) = @_;
my @domains = get_domains();	my @domains = get_domains();
	if ($includeempty) { @domains=('',@domains); }
my $selectdomain = "<select name=\"$name\" size=\"1\">\n";	my $selectdomain = "<select name=\"$name\" size=\"1\">\n";
foreach (@domains) {	foreach (@domains) {
$selectdomain.="<option value=\"$_\" ".	$selectdomain.="<option value=\"$_\" ".