20,22c20,22
< sub do_status($$) {
< 	my ($dir, $may_miss_dir) = @_;
< 
---
> sub do_status(\%$$) {
> 	my $dir = $_[1];
> 	my $may_miss_dir = $_[2];
23a24
> 
53,56d53
< 
< 	print "<a id=\"$dir\"></a>\n";
< 	print "<h1><a class=\"anchor\" href=\"#$dir\">$dir</a></h1>\n";
< 
58,64d54
< 		print "<h2>Translation priority: $priority</h2>\n";
< 		print "<table border=1>\n";
< 		print "<tr>\n";
< 		print "<th>File</th>\n";
< 		printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);
< 		print "</tr>\n";
< 
76,79c66,69
< 			}
< 			print "<tr>";
< 			printf "<th>%s</th>", $file;
< 			printf '<td%s>Revision %s%s<br>
---
> 			};
> 
> 			${$_[0]}{$priority}->{$file}->{'data'} = sprintf '<th>%s</th>
> 				<td%s>Revision %s%s<br>
81a72
> 				$file,
87a79,81
> 
> 			${$_[0]}{$priority}->{$file}->{'urgency'} = 0;
> 
116a111,112
> 
> 						${$_[0]}{$priority}->{$file}->{'urgency'} += 1;
118c114,115
< 					printf '<td bgcolor="%s">%s<br>
---
> 
> 					${$_[0]}{$priority}->{$file}->{'data'} .= sprintf '<td bgcolor="%s">%s<br>
134c131,133
< 					printf '<td bgcolor="%s">%s</td>', $color, $status;
---
> 
> 					${$_[0]}{$priority}->{$file}->{'data'} .= sprintf '<td bgcolor="%s">%s</td>', $color, $status;
> 					${$_[0]}{$priority}->{$file}->{'urgency'} += ($obs or $priority eq 'none') ? 0 : 2;
138d136
< 			print "</tr>\n\n";
140d137
< 		print "</table>\n\n\n";
170,174c167,198
< do_status('.', 0);
< do_status('docs', 1);
< do_status('torbrowser', 1);
< #do_status('eff', 1);
< #do_status('gui', 1);
---
> sub sort_and_print(\%) {
> 	my %rows = %{$_[0]};
> 
> 	for my $priority (sort {$a cmp $b} keys %rows) {
> 		print "<h2>Translation priority: $priority</h2>\n";
> 
> 		print "<table border=1>\n";
> 		print "<tr>\n";
> 		print "<th>File</th>\n";
> 		printf("<th>%s (%s)</th>\n", $_, $LANGUAGES{$_}) for ('en', grep { $_ ne 'en' } @LANGUAGES);
> 		print "</tr>\n";
> 
> 		for my $row (sort {$rows{$priority}->{$b}->{'urgency'} <=> $rows{$priority}->{$a}->{'urgency'}} keys %{$rows{$priority}}) {
> 			print "<tr>";
> 			print $rows{$priority}->{$row}->{'data'};
> 			delete ${$_[0]}{$priority}->{$row};
> 			print "</tr>\n\n";
> 		};
> 
> 		print "</table><br>\n\n\n";
> 	};
> };
> 
> # accumulate the table rows, then sort and print them
> my %table_rows;
> do_status(%table_rows, '.', 0);
> do_status(%table_rows, 'docs', 1);
> do_status(%table_rows, 'torbrowser', 1);
> #do_status(%table_data, 'eff', 1);
> #do_status(%table_data, 'gui', 1);
> sort_and_print(%table_rows);
>