loncom/interface/lonpickcode.pm - diff

Return to lonpickcode.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2006/10/10 02:15:10	version 1.12, 2007/01/25 20:34:29
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>"&mt("CODEs with [_1] matching letters",$i)."</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))) {