add queue option to self-service ticket create, RT#7007

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 672eec5..7fc1b60 100644 (file)
--- 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 8e79ca6..e5228ee 100755 (executable)
--- 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 cd2037e..ea11f21 100755 (executable)
--- 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'};