[Rt-commit] r9623 - rt/branches/3.6-RELEASE/lib/RT/Interface

[audreyt at bestpractical.com]

Author: audreyt
Date: Fri Nov  9 14:07:05 2007
New Revision: 9623

Modified:
   rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm

Log:
* MakeMIMEEntity now takes an optional "Type" field to denote
  the MIME Type of the body.  (Default to 'text/plain'.)

* CreateTicket() now supports $ARGS{ContentType}, and
  ProcessUpdateMessage() now supports $ARGS{UpdateContentType}.

Modified: rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm	Fri Nov  9 14:07:05 2007
@@ -341,6 +341,7 @@
         From                => $ARGS{'From'},
         Cc                  => $ARGS{'Cc'},
         Body                => $ARGS{'Content'},
+        Type                => $ARGS{'ContentType'},
     );
 
     if ( $ARGS{'Attachments'} ) {
@@ -538,6 +539,7 @@
         my $Message = MakeMIMEEntity(
             Subject => $args{ARGSRef}->{'UpdateSubject'},
             Body    => $args{ARGSRef}->{'UpdateContent'},
+            Type    => $args{ARGSRef}->{'UpdateContentType'},
         );
 
         $Message->head->add( 'Message-ID' => 
@@ -615,6 +617,8 @@
 
 Takes a paramhash Subject, Body and AttachmentFieldName.
 
+Also takes Form, Cc and Type as optional paramhash keys.
+
   Returns a MIME::Entity.
 
 =cut
@@ -628,6 +632,7 @@
         Cc                  => undef,
         Body                => undef,
         AttachmentFieldName => undef,
+        Type                => undef,
 #        map Encode::encode_utf8($_), @_,
         @_,
     );
@@ -645,6 +650,7 @@
             Subject => $args{'Subject'} || "",
             From    => $args{'From'},
             Cc      => $args{'Cc'},
+            Type    => $args{'Type'} || 'text/plain',
             'Charset:' => 'utf8',
             Data    => [ $args{'Body'} ]
         );