loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.196, 2006/05/08 22:12:29	version 1.197, 2006/05/09 15:09:27
Line 1817 sub print_sortfilter_options {	Line 1817 sub print_sortfilter_options {
$r->send_http_header;	$r->send_http_header;

&Apache::lonenc::check_encrypt(\$symb);	&Apache::lonenc::check_encrypt(\$symb);
my @sections = ();	my @sections;
my $section_sel = '';	my $section_sel = '';
my $numsections = 0;
my $numvisible = 5;	my $numvisible = 5;
my %sectioncount = ();	my %sectioncount = &Apache::loncommon::get_sections();

$numsections = &Apache::loncommon::get_sections($env{'course.'.$env{'request.course.id'}.'.domain'},$env{'course.'.$env{'request.course.id'}.'.num'},\%sectioncount);

if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section	if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section
@sections = ('all',$env{'request.course.sec'});	@sections = ('all',$env{'request.course.sec'});
$numvisible = 2;	$numvisible = 2;
} else {	} else {
@sections = sort {$a cmp $b} keys(%sectioncount);	@sections = sort {$a cmp $b} keys(%sectioncount);
unshift(@sections,'all'); # Put 'all' at the front of the list	if (scalar(@sections) < 4) {
if ($numsections < 4) {	$numvisible = scalar(@sections) + 1;
$numvisible = $numsections + 1;
}	}
	unshift(@sections,'all'); # Put 'all' at the front of the list

}	}
foreach (@sections) {	foreach (@sections) {
$section_sel .= " <option value=\"$_\" />$_\n";	$section_sel .= " <option value=\"$_\" />$_\n";