diff options
Diffstat (limited to 'fml/lib/Mail/ThreadTrack.pm')
| -rwxr-xr-x | fml/lib/Mail/ThreadTrack.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/fml/lib/Mail/ThreadTrack.pm b/fml/lib/Mail/ThreadTrack.pm index 39510359..aeff51e2 100755 --- a/fml/lib/Mail/ThreadTrack.pm +++ b/fml/lib/Mail/ThreadTrack.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: ThreadTrack.pm,v 1.14 2001/11/09 15:07:51 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.15 2001/11/11 00:58:44 fukachan Exp $ # package Mail::ThreadTrack; @@ -228,9 +228,17 @@ sub list_up_thread_id my ($tid, $status, @thread_id); my $rh_status = $self->{ _hash_table }->{ _status }; my $mode = 'default'; + my $stat = {}; TICEKT_LIST: while (($tid, $status) = each %$rh_status) { + if ($status =~ /close/o) { + $stat->{ 'closed' }++; + } + else { + $stat->{ $status }++; + } + if ($mode eq 'default') { next TICEKT_LIST if $status =~ /close/o; } @@ -238,6 +246,9 @@ sub list_up_thread_id push(@thread_id, $tid); } + # save statistics + $self->{ _ticket_id_stat } = $stat; + \@thread_id; } |