[freeside-commits] freeside/FS/FS/part_export acct_http.pm, 1.1, 1.2 cust_http.pm, 1.2, 1.3

[Erik Levinson]

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

Modified Files:
	acct_http.pm cust_http.pm 
Log Message:
Fix display of export option defaults for all HTTP exports


Index: cust_http.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/cust_http.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- cust_http.pm	5 Jul 2010 21:10:07 -0000	1.2
+++ cust_http.pm	4 Nov 2010 23:39:34 -0000	1.3
@@ -6,28 +6,50 @@
 
 @ISA = qw( FS::part_export::http );
 
-tie my %options, 'Tie::IxHash', %FS::part_export::http::options;
-
-$options{'insert_data'}->{'default'} = join("\n",
+tie %options, 'Tie::IxHash',
+  'method' => { label   =>'Method',
+                type    =>'select',
+                #options =>[qw(POST GET)],
+                options =>[qw(POST)],
+                default =>'POST' },
+  'url'    => { label   => 'URL', default => 'http://', },
+  'insert_data' => {
+    label   => 'Insert data',
+    type    => 'textarea',
+    default => join("\n",
   "action  'insert'",
   "custnum \$cust_main->custnum",
   "first   \$cust_main->first",
   "last    \$cust_main->get('last')",
   ( map "$_ \$cust_main->$_", qw( company address1 address2 city county state zip country daytime night fax  last ) ),
   "email   \$cust_main->invoicing_list_emailonly_scalar",
-);
-$options{'delete_data'}->{'default'} = join("\n",
+    ),
+  },
+  'delete_data' => {
+    label   => 'Delete data',
+    type    => 'textarea',
+    default => join("\n",
   "action  'delete'",
   "custnum \$cust_main->custnum",
-);
-$options{'replace_data'}->{'default'} = join("\n",
+    ),
+  },
+  'replace_data' => {
+    label   => 'Replace data',
+    type    => 'textarea',
+    default => join("\n",
   "action  'replace'",
   "custnum \$new_cust_main->custnum",
   "first   \$new_cust_main->first",
   "last    \$new_cust_main->get('last')",
   ( map "$_ \$cust_main->$_", qw( company address1 address2 city county state zip country daytime night fax  last ) ),
   "email   \$new_cust_main->invoicing_list_emailonly_scalar",
-);
+    ),
+  },
+  'success_regexp' => {
+    label  => 'Success Regexp',
+    default => '',
+  },
+;
 
 %info = (
   'svc'     => 'cust_main',

Index: acct_http.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/acct_http.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- acct_http.pm	4 Nov 2010 23:10:29 -0000	1.1
+++ acct_http.pm	4 Nov 2010 23:39:34 -0000	1.2
@@ -6,24 +6,46 @@
 
 @ISA = qw( FS::part_export::http );
 
-tie my %options, 'Tie::IxHash', %FS::part_export::http::options;
-
-$options{'insert_data'}->{'default'} = join("\n",
+tie %options, 'Tie::IxHash',
+  'method' => { label   =>'Method',
+                type    =>'select',
+                #options =>[qw(POST GET)],
+                options =>[qw(POST)],
+                default =>'POST' },
+  'url'    => { label   => 'URL', default => 'http://', },
+  'insert_data' => {
+    label   => 'Insert data',
+    type    => 'textarea',
+    default => join("\n",
   "action 'add'",
   "username \$svc_x->username",
   "password \$svc_x->_password",
   "prismid \$cust_main->agent_custid ? \$cust_main->agent_custid : \$cust_main->custnum ",
   "name \$cust_main->first.' '.\$cust_main->last",
-);
-$options{'delete_data'}->{'default'} = join("\n",
+    ),
+  },
+  'delete_data' => {
+    label   => 'Delete data',
+    type    => 'textarea',
+    default => join("\n",
   "action  'remove'",
   "username \$svc_x->username",
-);
-$options{'replace_data'}->{'default'} = join("\n",
+    ),
+  },
+  'replace_data' => {
+    label   => 'Replace data',
+    type    => 'textarea',
+    default => join("\n",
   "action  'update'",
   "username \$old->username",
   "password \$new->_password",
-);
+    ),
+  },
+  'success_regexp' => {
+    label  => 'Success Regexp',
+    default => '',
+  },
+;
 
 %info = (
   'svc'     => 'svc_acct',