From e5e8fc210824b9476adfc9d86884f521c48bb9d8 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 12 Feb 2010 19:28:19 +0000
Subject: add mime_type option to self-service ticket create, RT#7007

---
 FS/FS/ClientAPI/MyAccount.pm      | 2 +-
 FS/FS/TicketSystem/RT_Internal.pm | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'FS')

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 7fc1b6055..927ebefb1 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1668,7 +1668,7 @@ sub create_ticket {
     'queue'   => $queue,
     'custnum' => $custnum,
     'svcnum'  => $session->{'svcnum'},
-    map { $_ => $p->{$_} } qw( requestor cc subject message )
+    map { $_ => $p->{$_} } qw( requestor cc subject message mime_type )
   );
 
   if ( ref($err_or_ticket) ) {
diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm
index c49f40f02..52e3922c9 100644
--- a/FS/FS/TicketSystem/RT_Internal.pm
+++ b/FS/FS/TicketSystem/RT_Internal.pm
@@ -134,6 +134,11 @@ Cc: email address or arrayref of addresses
 
 Ticket message
 
+=item mime_type
+
+MIME type to use for message.  Defaults to text/plain.  Specifying text/html
+can be useful to use HTML markup in message.
+
 =item custnum
 
 Customer number (see L<FS::cust_main>) to associate with ticket.
@@ -165,7 +170,7 @@ sub create_ticket {
 
   my $mimeobj = MIME::Entity->build(
     'Data' => $param{'message'},
-    'Type' => 'text/plain',
+    'Type' => ( $param{'mime_type'} || 'text/plain' ),
   );
 
   my %ticket = (
-- 
cgit v1.2.1