[freeside-commits] freeside/fs_selfservice/perl xmlrpc-create_ticket.pl, 1.1, 1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/perl
In directory wavetail.420.am:/tmp/cvs-serv13161/fs_selfservice/perl

Modified Files:
	xmlrpc-create_ticket.pl 
Log Message:
add queue option to self-service ticket create, RT#7007

Index: xmlrpc-create_ticket.pl
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/perl/xmlrpc-create_ticket.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- xmlrpc-create_ticket.pl	12 Feb 2010 01:35:33 -0000	1.1
+++ xmlrpc-create_ticket.pl	12 Feb 2010 19:14:33 -0000	1.2
@@ -22,10 +22,12 @@
 
 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 at example.com',
   'cc'         => 'chiquitabanana at 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'};