Use mindelta and maxdelta in the translation statistics

Use per-page-specified "mindelta=" and "maxdelta=" values for checking updates
in the translation statistics.

1 files changed, 8 insertions, 4 deletions

diff --git a/stattrans.pl b/stattrans.pl
index 3ef824214c4..917aeabb2a6 100755
--- a/stattrans.pl
+++ b/stattrans.pl
@@ -89,8 +89,8 @@ foreach (@{$transignore->global()}) {
 	delete $rev_info{"english/$_"};
 }
 
-$max_versions = 5;
-$min_versions = 1;
+$max_versions_default = 5;
+$min_versions_default = 1;
 
 $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;
 
@@ -99,6 +99,8 @@ my %transversion;
 my %version;
 my %files;
 my %sizes;
+my %min_versions;
+my %max_versions;
 
 print "Loading the coordination status databases\n" if ($config{verbose});
 my %status_db = ();
@@ -177,6 +179,8 @@ sub getwmlfiles
 	if ($transcheck->revision()) {
 	    $transversion{"$lang/$file"} = $transcheck->revision();
 	    $original{"$lang/$file"} ||= $transcheck->original();
+	    $min_versions{"$lang/$file"} = $transcheck->mindelta() || $min_versions_default;
+	    $max_versions{"$lang/$file"} = $transcheck->maxdelta() || $max_versions_default;
 	}
 	if ($is_english) {
 	    $version{"$lang/$file"} = $rev_info{"$file"}{'cmt_rev'};
@@ -253,7 +257,7 @@ sub update_file_metadata
 
 sub check_translation
 {
-    my ($translation, $version, $file, $orig_file) = @_;
+    my ($translation, $version, $file, $orig_file, $min_versions, $max_versions) = @_;
 
     my ( @version_numbers, $major_number, $last_number );
 #    print "  check_translation: looking at translation $translation, english version $version, file $file, orig_file $orig_file\n";
@@ -476,7 +480,7 @@ foreach $lang (@search_in) {
 		$translated_s{$lang} += $sizes{$file};
                 $orig = $original{"$lang/$file"} || "english";
                 # Outdated translations
-                $msg = check_translation ($transversion{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file", "$orig/$file");
+                $msg = check_translation ($transversion{"$lang/$file"}, $version{"$orig/$file"}, "$lang/$file", "$orig/$file", $min_versions{"$lang/$file"}, $max_versions{"$lang/$file"});
                 if (length ($msg) or (($todo ne '<td></td><td></td><td></td>') and ($transversion{"$lang/$file"} ne $version{"$orig/$file"}))) {
                     $o_body .= "<tr>";
                     if (($file !~ /\.wml$/)