loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.246, 2008/07/02 16:08:21	version 1.247, 2008/07/04 18:30:30
Line 3360 sub selfenroll_inst_types {	Line 3360 sub selfenroll_inst_types {
my $numinrow = 4;	my $numinrow = 4;
my $count = 0;	my $count = 0;
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);
	my $othervalue = 'any';
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {	if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
	if (@{$types} > 0) {
	$othervalue = 'other';
	}
$output .= '<table><tr>';	$output .= '<table><tr>';
foreach my $type (@{$types}) {	foreach my $type (@{$types}) {
if (($count > 0) && ($count%$numinrow == 0)) {	if (($count > 0) && ($count%$numinrow == 0)) {
Line 3383 sub selfenroll_inst_types {	Line 3387 sub selfenroll_inst_types {
if (($count > 0) && ($count%$numinrow == 0)) {	if (($count > 0) && ($count%$numinrow == 0)) {
$output .= '</tr><tr>';	$output .= '</tr><tr>';
}	}
$output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="other" ';	$output .= '<td><span class="LC_nobreak"><label><input type = "checkbox" value="'.$othervalue.'" ';
if (ref($currinsttypes) eq 'ARRAY') {	if (ref($currinsttypes) eq 'ARRAY') {
if (@{$currinsttypes} > 0) {	if (@{$currinsttypes} > 0) {
if (grep(/^other$/,@{$currinsttypes})) {	if (grep(/^other$/,@{$currinsttypes})) {