diff options
| author | fukachan <fukachan> | 2001-11-11 11:12:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-11 11:12:27 +0000 |
| commit | 9355ffe6229e1b86cfc968806ab2e2057732436e (patch) | |
| tree | e36de4ce3cc4f46580baef8b1f93efbe146d8651 /fml/lib/Mail/ThreadTrack.pm | |
| parent | 13e1ed9bb846416f44c4e22ebc4fb2a827a6b585 (diff) | |
| download | fml8-9355ffe6229e1b86cfc968806ab2e2057732436e.tar.gz fml8-9355ffe6229e1b86cfc968806ab2e2057732436e.tar.bz2 fml8-9355ffe6229e1b86cfc968806ab2e2057732436e.zip | |
enable "show" and "change_status" to work
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; } |