From afd434d9b32eeac12bfb71f46a33181a2e55cbd4 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 26 Jan 2001 09:23:48 +0000
Subject: define get_ticket_list()

---
 fml/lib/FML/Ticket/Model/toymodel.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/fml/lib/FML/Ticket/Model/toymodel.pm b/fml/lib/FML/Ticket/Model/toymodel.pm
index 1b400eb9..e486a76a 100644
--- a/fml/lib/FML/Ticket/Model/toymodel.pm
+++ b/fml/lib/FML/Ticket/Model/toymodel.pm
@@ -178,6 +178,33 @@ sub _dequote_space
 }
 
 
+sub get_ticket_list
+{
+    my ($self, $header, $config) = @_;
+    my (%db, $k, $v);
+
+    # %db: $article_id => "$ticket_id $unixtime"
+    use Tie::LogFileDB;
+    my $cache_file = $self->{ _cache_file };
+    tie %db, 'Tie::LogFileDB', { file => $cache_file };
+
+    my (@open_list)   = ();
+    my (@closed_list) = ();
+    while(($k, $v) = each %db) {
+	if ($v =~ /closed\s+/o) {
+	    push(@closed_list, $v);
+	}
+	else {
+	    push(@open_list, $v);
+	}
+    }
+
+    untie %db;
+
+    return (\@open_list, \@closed_list);
+}
+
+
 =head1 NAME
 
 FML::__HERE_IS_YOUR_MODULE_NAME__.pm - what is this
-- 
cgit v1.2.1