[freeside-commits] freeside/FS/FS/part_export cust_http.pm, 1.1, 1.2 http.pm, 1.4, 1.5

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv11799/FS/FS/part_export

Modified Files:
	cust_http.pm http.pm 
Log Message:
customer exports, RT#8952

Index: cust_http.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/cust_http.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- cust_http.pm	30 Jun 2010 20:42:53 -0000	1.1
+++ cust_http.pm	5 Jul 2010 21:10:07 -0000	1.2
@@ -6,6 +6,8 @@
 
 @ISA = qw( FS::part_export::http );
 
+tie my %options, 'Tie::IxHash', %FS::part_export::http::options;
+
 $options{'insert_data'}->{'default'} = join("\n",
   "action  'insert'",
   "custnum \$cust_main->custnum",

Index: http.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/http.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -d -r1.4 -r1.5
--- http.pm	30 Jun 2010 20:42:53 -0000	1.4
+++ http.pm	5 Jul 2010 21:10:07 -0000	1.5
@@ -90,13 +90,15 @@
   my $new_cust_main = $new->table eq 'cust_main'
                         ? $new
                         : $new->cust_svc->cust_pkg->cust_main;
+  my $cust_main = $new_cust_main; #so folks can use $new_cust_main or $cust_main
 
-  $self->http_queue( $svc_x->svcnum,
+  $self->http_queue( $new->svcnum,
     $self->option('method'),
     $self->option('url'),
     map {
       /^\s*(\S+)\s+(.*)$/ or /()()/;
       my( $field, $value_expression ) = ( $1, $2 );
+      my $value = eval $value_expression;
       die $@ if $@;
       ( $field, $value );
     } split(/\n/, $self->option('replace_data') )