merge fix for #395027

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 8c7051e36b87bb03f89e2232d1d986a1a20e6e7c..3a96210957183adfccc9d57ba5684d70300c0cf3 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -609,17 +609,13 @@ sub pkg_htmlindexentrystatus {
     my $showversions = '';
     if (@{$status{found_versions}}) {
         my @found = @{$status{found_versions}};
-        local $_;
-        s{/}{ } foreach @found;
-        $showversions .= join ', ', map htmlsanit($_), @found;
+        $showversions .= join ', ', map {s{/}{ }; htmlsanit($_)} @found;
     }
     if (@{$status{fixed_versions}}) {
         $showversions .= '; ' if length $showversions;
         $showversions .= '<strong>fixed</strong>: ';
         my @fixed = @{$status{fixed_versions}};
-        local $_;
-        s{/}{ } foreach @fixed;
-        $showversions .= join ', ', map htmlsanit($_), @fixed;
+        $showversions .= join ', ', map {s{/}{ }; htmlsanit($_)} @fixed;
     }
     $result .= " ($showversions)" if length $showversions;
     $result .= ";\n";
@@ -750,12 +746,12 @@ sub pkg_htmlizebugs {
            push @keys_in_order, "X";
            while ((my $k = shift @keys_in_order) ne "X") {
                for my $k2 (@{$o}) {
+                   $k2+=0;
                    push @keys_in_order, "${k}_${k2}";
                }
            }
        }
-        for ( my $i = 0; $i <= $#keys_in_order; $i++ ) {
-            my $order = $keys_in_order[ $i ];
+        for my $order (@keys_in_order) {
             next unless defined $section{$order};
            my @ttl = split /_/, $order; shift @ttl;
            my $title = $title[0]->[$ttl[0]] . " bugs";
@@ -1040,9 +1036,10 @@ sub determine_ordering {
     $cats{severity}[0]{ord} = [ reverse @{$cats{severity}[0]{ord}} ]
         if ($sev_rev);
 
+    my $i;
     if (defined $param{"pri0"}) {
         my @c = ();
-        my $i = 0;
+        $i = 0;
         while (defined $param{"pri$i"}) {
             my $h = {};
 
@@ -1092,7 +1089,7 @@ sub determine_ordering {
         return $expr;
     }
  
-    my $i = 0;
+    $i = 0;
     for my $c (@cats) {
         $i++;
         push @prior, $c->{"pri"};

diff --git a/debian/changelog b/debian/changelog
index a673145705c0166bd797714f57ba3a4bdb4bd9f1..df88ac098fd6fc84650acc7f6f8a21cdafd129ed 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -141,6 +141,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
     - Document precisely how forwarded works (closes: #228049)
     - Dissallow forwarded being set to a $gEmailDomain address
       (closes: #397486)
+    - Fix broken sorting by usertags by forcing numeric (closes: #395027)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100