From ec7c7744ff3075e7646b7a2136ef1bb14019e698 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 7 Feb 2001 09:22:57 +0000
Subject: enable "X-Ticket-Pragma: close" to close this ticket

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

(limited to 'fml')

diff --git a/fml/lib/FML/Ticket/Model/toymodel.pm b/fml/lib/FML/Ticket/Model/toymodel.pm
index d2abe5cc..6cdaa10a 100644
--- a/fml/lib/FML/Ticket/Model/toymodel.pm
+++ b/fml/lib/FML/Ticket/Model/toymodel.pm
@@ -144,8 +144,11 @@ sub update_status
     # entries to check
     my $subject = $header->get('subject');
     my $content = $body->get_first_plaintext_message();
+    my $pragma  = $header->get('x-ticket-pragma') || '';
 
-    if ($content =~ /^\s*close/ || $subject =~ /^\s*close/) {
+    if ($content =~ /^\s*close/ || 
+	$subject =~ /^\s*close/ || 
+	$pragma  =~ /close/      ) {
 	$self->{ _status } = "closed";
 	Log("ticket is closed");
     }
-- 
cgit v1.2.1