loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.404, 2005/12/13 19:13:51	version 1.405, 2005/12/15 18:33:37
Line 2172 CHOOSE_STUDENTS	Line 2172 CHOOSE_STUDENTS
my %all_codes = &Apache::lonnet::get('CODEs',	my %all_codes = &Apache::lonnet::get('CODEs',
\@names, $cdom,$cnum);	\@names, $cdom,$cnum);
my %code_values;	my %code_values;
my @all_code_array;	my %codes_to_print;
foreach my $key (keys %all_codes) {	foreach my $key (keys(%all_codes)) {
%code_values = &Apache::grades::get_codes($key, $cdom, $cnum);	%code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
foreach my $key (keys %code_values) {	foreach my $key (keys(%code_values)) {
push (@all_code_array, "$key");	$codes_to_print{$key} = 1;
}	}
}	}

my $code_selection = "<choice></choice>\n";	my $code_selection = "<choice></choice>\n";
foreach my $code (sort {uc($a) cmp uc($b)} @all_code_array) {	foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
my $choice = $code;	my $choice = $code;
if ($code =~ /^[A-Z]+$/) { # Alpha code	if ($code =~ /^[A-Z]+$/) { # Alpha code
$choice = &letters_to_num($code);	$choice = &letters_to_num($code);