Changeset 28 for trunk/uribl

Timestamp:

11/11/10 15:42:42 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/uribl

Fix ordering of domains on dbreport page to match order on report page

File:

• trunk/uribl/uridb.cgi (modified) (1 diff)

trunk/uribl/uridb.cgi

@@ -104 +104 @@
   my $err = '';
   my @domlist;
-  foreach my $key (keys %webvar) {
-    next unless $key =~ /^dom\d+$/;
+  my $i = 0;
+  while (defined ($webvar{"dom$i"})) {
+    my $key = "dom$i";
     my %row;
     $row{domain} = $webvar{$key};
     $row{listnum} = $webvar{$key."type"};
     $row{listtext} = $URIdb::status{$webvar{$key."type"}};
+    $row{comment} = $webvar{$key."comment"};
     if ($webvar{$key."type"} != 0) {
       $uridb->report($webvar{$key},$webvar{$key."type"},$webvar{$key."comment"});
     }
     push @domlist, \%row;
+    $i++;
   }
   $page->param(domlist => \@domlist);