Changeset 28 for trunk/uribl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/uribl/uridb.cgi

    r27 r28  
    104104  my $err = '';
    105105  my @domlist;
    106   foreach my $key (keys %webvar) {
    107     next unless $key =~ /^dom\d+$/;
     106  my $i = 0;
     107  while (defined ($webvar{"dom$i"})) {
     108    my $key = "dom$i";
    108109    my %row;
    109110    $row{domain} = $webvar{$key};
    110111    $row{listnum} = $webvar{$key."type"};
    111112    $row{listtext} = $URIdb::status{$webvar{$key."type"}};
     113    $row{comment} = $webvar{$key."comment"};
    112114    if ($webvar{$key."type"} != 0) {
    113115      $uridb->report($webvar{$key},$webvar{$key."type"},$webvar{$key."comment"});
    114116    }
    115117    push @domlist, \%row;
     118    $i++;
    116119  }
    117120  $page->param(domlist => \@domlist);
Note: See TracChangeset for help on using the changeset viewer.