From 7b3449f32b6a465d8f764ac9cb2ee238481506c3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 12 Feb 2010 19:14:34 +0000
Subject: [PATCH] add queue option to self-service ticket create, RT#7007

---
 FS/FS/ClientAPI/MyAccount.pm                            | 3 ++-
 fs_selfservice/java/freeside_create_ticket_example.java | 6 +++++-
 fs_selfservice/perl/xmlrpc-create_ticket.pl             | 4 +++-
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 672eec5d8..7fc1b6055 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1658,7 +1658,8 @@ sub create_ticket {
   FS::TicketSystem->init();
 
   my $conf = new FS::Conf;
-  my $queue =    $conf->config('ticket_system-selfservice_queueid')
+  my $queue = $p->{'queue'}
+              || $conf->config('ticket_system-selfservice_queueid')
               || $conf->config('ticket_system-default_queueid');
 
   warn "$me create_ticket: creating ticket\n" if $DEBUG;
diff --git a/fs_selfservice/java/freeside_create_ticket_example.java b/fs_selfservice/java/freeside_create_ticket_example.java
index 8e79ca6f0..e5228eee0 100755
--- a/fs_selfservice/java/freeside_create_ticket_example.java
+++ b/fs_selfservice/java/freeside_create_ticket_example.java
@@ -37,6 +37,10 @@ public class freeside_create_ticket_example {
       Vector ticket_params = new Vector();
       ticket_params.addElement( "session_id" );
       ticket_params.addElement( sessionId );
+      ticket_params.addElement( "queue" );
+      ticket_params.addElements( 3 ); // otherwise defaults to
+                                      // ticket_system-selfservice_queueid
+                                      // or ticket_system-default_queueid
       ticket_params.addElement( "requestor" );         // these
       ticket_params.addElement( "email@example.com" ); // are
       ticket_params.addElement( "cc" );                // optional
@@ -44,7 +48,7 @@ public class freeside_create_ticket_example {
       ticket_params.addElement( "subject" );
       ticket_params.addElement( "Houston, we have a problem." );
       ticket_params.addElement( "message" );
-      ticket_params.addElement( "The Oscillation Overthurster has gone out of alignment!\n\nIt needs to be fixed immediately!" );
+      ticket_params.addElement( "The Oscillation Overthurster has gone out of alignment!\n\nIt needs to be fixed immediately!  http://linktest.freeside.biz/hi" );
 
       HashMap ticket_result = client.execute( "create_ticket", ticket_params);
 
diff --git a/fs_selfservice/perl/xmlrpc-create_ticket.pl b/fs_selfservice/perl/xmlrpc-create_ticket.pl
index cd2037e2c..ea11f210e 100755
--- a/fs_selfservice/perl/xmlrpc-create_ticket.pl
+++ b/fs_selfservice/perl/xmlrpc-create_ticket.pl
@@ -22,10 +22,12 @@ warn "logged in with session_id $session_id\n";
 
 my $t_result = $server->call('FS.SelfService.XMLRPC.create_ticket',
   'session_id' => $session_id,
+  'queue'      => 3, #otherwise defaults to ticket_system-selfservice_queueid
+                     #or ticket_system-default_queueid
   'requestor'  => 'harveylala@example.com',
   'cc'         => 'chiquitabanana@example.com',
   'subject'    => 'Chiquita keeps sitting on me',
-  'message'    => "Isn't there something you can do about this?\n\nShe keeps waking me up!",
+  'message'    => "Isn't there something you can do about this?\n\nShe keeps waking me up!  http://linktest.freeside.biz/hi",
 );
 
 die $t_result->{'error'} if $t_result->{'error'};
-- 
2.11.0