freeside/FS/FS/TicketSystem RT_External.pm,1.9,1.10

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/TicketSystem
In directory pouncequick:/tmp/cvs-serv16716/FS/FS/TicketSystem

Modified Files:
	RT_External.pm 
Log Message:
set default requestor to email invoice addresses

Index: RT_External.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/TicketSystem/RT_External.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- RT_External.pm	9 Dec 2004 12:46:21 -0000	1.9
+++ RT_External.pm	9 Dec 2004 21:33:57 -0000	1.10
@@ -3,6 +3,7 @@
 use strict;
 use vars qw( $conf $default_queueid
              $priority_field $priority_field_queue $field );
+use URI::Escape;
 use FS::UID;
 
 install_callback FS::UID sub { 
@@ -122,6 +123,8 @@
 sub href_customer_tickets {
   my( $self, $custnum, $priority ) = @_;
 
+  #i snarfed this from an RT bookmarked search, it could be unescaped in the
+  #source for readability and run through uri_escape
   my $href = 
     'Search/Results.html?Order=ASC&Query=%20MemberOf%20%3D%20%27freeside%3A%2F%2Ffreeside%2Fcust_main%2F'.
     $custnum.
@@ -156,10 +159,12 @@
 
 
 sub href_new_ticket {
-  my( $self, $custnum ) = @_;
+  my( $self, $custnum, $requestors ) = @_;
   'Ticket/Create.html?'.
     "Queue=$default_queueid".
-    "&new-MemberOf=freeside://freeside/cust_main/$custnum";
+    "&new-MemberOf=freeside://freeside/cust_main/$custnum".
+    ( $requestors ? '&Requestors='. uri_escape($requestors) : '' )
+    ;
 }
 
 sub href_ticket {