From 9b5bc9ab945125b8a403a69386c8b7d4732b31b1 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 16 Feb 2001 11:31:10 +0000
Subject: fmlticket close $ml $ticket_id

---
 fml/lib/FML/Process/TicketSystem.pm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'fml/lib/FML/Process/TicketSystem.pm')

diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm
index 451fbbfa..cd298989 100644
--- a/fml/lib/FML/Process/TicketSystem.pm
+++ b/fml/lib/FML/Process/TicketSystem.pm
@@ -49,12 +49,21 @@ sub run
     # fake use() to do "use FML::Ticket::$model;"
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
+	my $ticket = $pkg->new($curproc, $args);
+
 	if ($command eq 'list') {
-	    $curproc->_ticket_show_summary($args, $pkg);
+	    $ticket->show_summary($curproc, $args);
 	}
 	elsif ($command eq 'close') {
 	    $curproc->lock();
 
+	    my $ticket_id = $argv->[ 2 ];
+	    my $args = {
+		ticket_id => $ticket_id, 
+		status    => 'close',
+	    };
+	    $ticket->set_status($curproc, $args);
+
 	    $curproc->unlock();
 	}
 	else {
@@ -67,14 +76,6 @@ sub run
 }
 
 
-sub _ticket_show_summary
-{
-    my ($curproc, $args, $pkg) = @_;
-    my $ticket = $pkg->new($curproc, $args);
-    $ticket->show_summary($curproc, $args);
-}
-
-
 sub AUTOLOAD
 {
     my ($curproc, $args) = @_;
-- 
cgit v1.2.1