[freeside-commits] freeside/fs_selfservice/perl xmlrpc-create_ticket.pl, 1.1.2.2, 1.1.2.3

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	xmlrpc-create_ticket.pl 
Log Message:
backport queue option, 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.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- xmlrpc-create_ticket.pl	12 Feb 2010 01:37:54 -0000	1.1.2.2
+++ xmlrpc-create_ticket.pl	12 Feb 2010 19:27:58 -0000	1.1.2.3
@@ -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'};