X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpayment_gateway.html;h=dfe52f109b49fa490b5a1c0b424f6a8c433a8bf9;hb=a72a10f754f7465121d6137bb3dcee0a21ea6443;hp=837d0c408183f149d2aec9c15b46bf247e3c6d66;hpb=673b9a458d9138523026963df6fa3b4683e09bae;p=freeside.git

diff --git a/httemplate/edit/payment_gateway.html b/httemplate/edit/payment_gateway.html
index 837d0c408..dfe52f109 100644
--- a/httemplate/edit/payment_gateway.html
+++ b/httemplate/edit/payment_gateway.html
@@ -1,108 +1,162 @@
-<%
-
-my $payment_gateway;
-if ( $cgi->param('error') ) {
-  $payment_gateway = new FS::payment_gateway ( {
-    map { $_, scalar($cgi->param($_)) } fields('payment_gateway')
-  } );
-} elsif ( $cgi->keywords ) {
-  my($query) = $cgi->keywords;
-  $query =~ /^(\d+)$/;
-  $payment_gateway = qsearchs( 'payment_gateway', { 'gatewaynum' => $1 } );
-} else { #adding
-  $payment_gateway = new FS::payment_gateway {};
-}
-my $action = $payment_gateway->gatewaynum ? 'Edit' : 'Add';
-#my $hashref = $payment_gateway->hashref;
-
+<% include( 'elements/edit.html',
+            'table'          => 'payment_gateway',
+            'name_singular'  => 'Payment gateway',
+            'viewall_dir'    => 'browse',
+            'fields'         => $fields,
+            'field_callback' => $field_callback,
+            'labels'         => {
+                                  'gatewaynum'           => 'Gateway',
+                                  'gateway_namespace'    => 'Gateway type',
+                                  'gateway_module'       => 'Gateway',
+                                  'gateway_username'     => 'Username',
+                                  'gateway_password'     => 'Password',
+                                  'gateway_action'       => 'Action',
+                                  'gateway_options'      => 'Options (Name/Value pairs, <BR>one element per line)',
+                                  'gateway_callback_url' => 'Callback URL',
+                                },
+          )
 %>
 
-<%= header("$action Payment gateway", menubar(
-  'Main Menu' => $p,
-  'View all payment gateways' => $p. 'browse/payment_gateway.html',
-)) %>
 
-<% if ( $cgi->param('error') ) { %>
-<FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
-<% } %>
+<SCRIPT TYPE="text/javascript">
+  var modulesForNamespace = <% to_json(\%modules_for_namespace, {canonical=>1}) %>;
+  function changeNamespace(what) {
+    var ns = what.value;
+    var select_module = document.getElementById('gateway_module');
+    select_module.options.length = 0;
+    for (var x in modulesForNamespace[ns]) {
+      var o = document.createElement('option');
+      o.value = o.text = modulesForNamespace[ns][x];
+      select_module.add(o, null);
+    }
+  }
+</SCRIPT>
 
-<FORM ACTION="<%=popurl(1)%>process/payment_gateway.html" METHOD=POST>
-<INPUT TYPE="hidden" NAME="gatewaynum" VALUE="<%= $payment_gateway->gatewaynum %>">
-Gateway #<%= $payment_gateway->gatewaynum || "(NEW)" %>
+<%init>
 
-<%= ntable('#cccccc', 2, '') %>
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
-<TR>
-  <TH ALIGN="right">Gateway: </TH>
-  <TD><SELECT NAME="gateway_module" SIZE=1>
-    <% foreach my $module ( qw(
-         2CheckOut
-         AuthorizeNet
-         BankOfAmerica
-         Beanstream
-         Capstone
-         Cardstream
-         CashCow
-         CyberSource
-         eSec
-         eSelectPlus
-         Exact
-         iAuthorizer
-         IPaymentTPG
-         Jettis
-         LinkPoint
-         MerchantCommerce
-         Network1Financial
-         OCV
-         OpenECHO
-         PayConnect
-         PayflowPro
-         PaymentsGateway
-         PXPost
-         SecureHostingUPG
-         Skipjack
-         StGeorge
-         SurePay
-         TCLink
-         VirtualNet
-       ) ) {
-    %>
-      <OPTION VALUE="<%= $module %>"><%= $module %>
-    <% } %>
-    </SELECT>
-  </TD>
-</TR>
+my %modules =  (
+  '2CheckOut'             => 'Business::OnlinePayment',
+  'AuthorizeNet'          => 'Business::OnlinePayment',
+  'BankOfAmerica'         => 'Business::OnlinePayment', #deprecated?
+  'Beanstream'            => 'Business::OnlinePayment',
+  'Capstone'              => 'Business::OnlinePayment',
+  'Cardstream'            => 'Business::OnlinePayment',
+  'CashCow'               => 'Business::OnlinePayment',
+  'CyberSource'           => 'Business::OnlinePayment',
+  'eSec'                  => 'Business::OnlinePayment',
+  'eSelectPlus'           => 'Business::OnlinePayment',
+  'eWayShared'            => 'Business::OnlineThirdPartyPayment',
+  'ElavonVirtualMerchant' => 'Business::OnlinePayment',
+  'Exact'                 => 'Business::OnlinePayment',
+  'iAuthorizer'           => 'Business::OnlinePayment',
+  'Ingotz'                => 'Business::OnlinePayment',
+  'InternetSecure'        => 'Business::OnlinePayment',
+  'Interswitchng'         => 'Business::OnlineThirdPartyPayment',
+  'IPaymentTPG'           => 'Business::OnlinePayment',
+  'IPPay'                 => 'Business::OnlinePayment',
+  'Iridium'               => 'Business::OnlinePayment',
+  'Jettis'                => 'Business::OnlinePayment',
+  'Jety'                  => 'Business::OnlinePayment',
+  'LinkPoint'             => 'Business::OnlinePayment',
+  'MerchantCommerce'      => 'Business::OnlinePayment',
+  'Network1Financial'     => 'Business::OnlinePayment',
+  'OCV'                   => 'Business::OnlinePayment',
+  'OpenECHO'              => 'Business::OnlinePayment',
+  'PayConnect'            => 'Business::OnlinePayment',
+  'PayflowPro'            => 'Business::OnlinePayment',
+  'PaymenTech'            => 'Business::OnlinePayment',
+  'PaymentsGateway'       => 'Business::OnlinePayment',
+  'PayPal'                => 'Business::OnlinePayment',
+  #'PaySystems'            => 'Business::OnlinePayment',
+  'PlugnPay'              => 'Business::OnlinePayment',
+  'PPIPayMover'           => 'Business::OnlinePayment',
+  'Protx'                 => 'Business::OnlinePayment', #now SagePay
+  'PXPost'                => 'Business::OnlinePayment',
+  'SagePay'               => 'Business::OnlinePayment',
+  'SecureHostingUPG'      => 'Business::OnlinePayment',
+  'Skipjack'              => 'Business::OnlinePayment',
+  'StGeorge'              => 'Business::OnlinePayment',
+  'SurePay'               => 'Business::OnlinePayment',
+  'TCLink'                => 'Business::OnlinePayment',
+  'TransactionCentral'    => 'Business::OnlinePayment',
+  'TransFirsteLink'       => 'Business::OnlinePayment',
+  'Vanco'                 => 'Business::OnlinePayment',
+  'viaKLIX'               => 'Business::OnlinePayment',
+  'VirtualNet'            => 'Business::OnlinePayment',
+  'WesternACH'            => 'Business::OnlinePayment',
+  'WorldPay'              => 'Business::OnlinePayment',
 
-<TR>
-  <TH ALIGN="right">Username: </TH>
-  <TD><INPUT TYPE="text" NAME="gateway_username"></TD>
-</TR>
+  'KeyBank'               => 'Business::BatchPayment',
+  'Paymentech'            => 'Business::BatchPayment',
+  'TD_EFT'                => 'Business::BatchPayment',
+);
 
-<TR>
-  <TH ALIGN="right">Password: </TH>
-  <TD><INPUT TYPE="text" NAME="gateway_password"></TD>
-</TR>
-
-<TR>
-  <TH ALIGN="right">Action: </TH>
-  <TD>
-    <SELECT NAME="gateway_action" SIZE=1>
-      <OPTION VALUE="Normal Authorization">Normal Authorization
-      <OPTION VALUE="Authorization Only">Authorization Only
-      <OPTION VALUE="Authorization Only, Post Authorization">Authorization Only, Post Authorization
-    </SELECT>
-  </TD>
-</TR>
+my %modules_for_namespace;
+for (keys %modules) {
+  $modules_for_namespace{$modules{$_}} ||= [];
+  push @{ $modules_for_namespace{$modules{$_}} }, $_;
+}
 
-<TR>
-  <TH ALIGN="right">Options: </TH>
-  <TD><TEXTAREA ROWS="5" NAME="gateway_options"></TEXTAREA></TD>
-</TR>
+my @actions = (
+                'Normal Authorization',
+                'Authorization Only',
+                'Authorization Only,Post Authorization',
+              );
 
-</TABLE>
+my $fields = [
+               {
+                 field               => 'gateway_namespace',
+                 type                => 'select',
+                 options             => [ qw(
+                   Business::OnlinePayment
+                   Business::BatchPayment
+                   Business::OnlineThirdPartyPayment
+                 ) ],
+                 labels       => {
+                   'Business::OnlinePayment' => 'Direct',
+                   'Business::BatchPayment'  => 'Batch',
+                   'Business::OnlineThirdPartyPayment'  => 'Hosted',
+                 },
+                 onchange => 'changeNamespace',
+               },
+               {
+                 field    => 'gateway_module',
+                 type     => 'select',
+                 options  => [ sort { lc($a) cmp lc ($b) } keys %modules ],
+               },
+               'gateway_username',
+               'gateway_password',
+               {
+                 field    => 'gateway_action',
+                 type     => 'select',
+                 options  => \@actions,
+               },
+               {
+                 field    => 'gateway_callback_url',
+                 type     => 'text',
+                 size     => 40,
+               },
+               {
+                 field               => 'gateway_options',
+                 type                => 'textarea',
+                 rows                => '12',
+                 cols                => '40', 
+                 curr_value_callback => sub { my($cgi, $object, $fref) = @_;
+                                              join("\r", $object->options );
+                                            },
+               },
+             ];
 
-<BR><INPUT TYPE="submit" VALUE="<%= $payment_gateway->gatewaynum ? "Apply changes" : "Add gateway" %>">
-    </FORM>
-  </BODY>
-</HTML>
+my $field_callback = sub {
+  my ($cgi, $object, $field_hashref ) = @_;
+  if ($object->gatewaynum) {
+    if ( $field_hashref->{field} =~ /gateway_(module|namespace)/ ) {
+      $field_hashref->{type} = 'fixed';
+    }
+  }
+};
 
+</%init>