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})) { |