loncom/interface/lonpickcode.pm - diff

Return to lonpickcode.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2006/03/16 21:54:40	version 1.11, 2006/10/10 02:15:10
Line 143 ENDSCRIPT	Line 143 ENDSCRIPT
my %code_freq=&get_code_freq($r);	my %code_freq=&get_code_freq($r);
my $num_matches=length($env{'form.curCODE'});	my $num_matches=length($env{'form.curCODE'});
for (my $i=$num_matches;$i>=0;$i--) {	for (my $i=$num_matches;$i>=0;$i--) {
my $to_print="<p> CODEs with $i matches</p>";	my $to_print="<p>"&mt("CODEs with [_1] matching letters",$i)."</p>";
$to_print.='<table border="1"><tr><td></td><td>CODE</td><td>exams using this CODE</td>';	$to_print.='<table border="1"><tr><td></td><td>CODE</td><td>exams using this CODE</td>';
my $print;	my $print;
foreach my $code (sort(keys(%codes))) {	foreach my $code (sort(keys(%codes))) {