[popfile-commit] engine/UI HTML.pm,1.121,1.122

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv27008/UI

Modified Files:
	HTML.pm 
Log Message:
Fix the ID display in the History so that the IDs do not resort with each sort

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.121
retrieving revision 1.122
diff -C2 -d -r1.121 -r1.122
*** HTML.pm	7 Apr 2003 17:55:54 -0000	1.121
--- HTML.pm	8 Apr 2003 00:24:13 -0000	1.122
***************
*** 2122,2125 ****
--- 2122,2126 ----
              $self->{history__}{$history_files[$i]}{short_from}    = $short_from;
              $self->{history__}{$history_files[$i]}{cull}          = 0;
+             $self->{history__}{$history_files[$i]}{index}         = $i;
          }
      }
***************
*** 2700,2703 ****
--- 2701,2705 ----
              my $bucket        = $self->{history__}{$mail_file}{bucket};
              my $reclassified  = $self->{history__}{$mail_file}{reclassified};
+             my $index         = $self->{history__}{$mail_file}{index} + 1;
  
              $body .= "<tr";
***************
*** 2713,2717 ****
              $body .= ">\n<td>";
              $body .= "<a name=\"$mail_file\"></a>";
!             $body .= $i+1 . "</td>\n<td>";
              $mail_file =~ /popfile\d+=(\d+)\.msg$/;
              $body .= "<a title=\"$from\">$short_from</a></td>\n";
--- 2715,2719 ----
              $body .= ">\n<td>";
              $body .= "<a name=\"$mail_file\"></a>";
!             $body .= $index . "</td>\n<td>";
              $mail_file =~ /popfile\d+=(\d+)\.msg$/;
              $body .= "<a title=\"$from\">$short_from</a></td>\n";