|
version 1.8.2.2, 2010/03/23 20:53:09
|
version 1.8.2.4, 2010/11/19 13:09:36
|
|
Line 141 sub print_footer {
|
Line 141 sub print_footer {
|
| if (($phase eq 'display') || ($phase eq 'process')) { |
if (($phase eq 'display') || ($phase eq 'process')) { |
| if (ref($actions) eq 'ARRAY') { |
if (ref($actions) eq 'ARRAY') { |
| foreach my $item (@{$actions}) { |
foreach my $item (@{$actions}) { |
| $r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n"; |
$r->print('<input type="hidden" name="actions" value="'.$item.'" />'."\n"); |
| } |
} |
| } |
} |
| } |
} |
|
Line 308 sub display_choices {
|
Line 308 sub display_choices {
|
| if ($numitems%$numcols) { |
if ($numitems%$numcols) { |
| $maxincol ++; |
$maxincol ++; |
| } |
} |
| my $firstthird = $maxincol; |
$firstthird = $maxincol; |
| my $secondthird = $firstthird + $maxincol; |
$secondthird = $firstthird + $maxincol; |
| $count = 0; |
$count = 0; |
| if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) { |
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) { |
| foreach my $item (@{$prefs_order}) { |
foreach my $item (@{$prefs_order}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonconfigsettings.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface