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";
|
