stray closing /TABLE in the no-ticket case

[freeside.git] / FS / bin / freeside-selfservice-xmlrpcd

diff --git a/FS/bin/freeside-selfservice-xmlrpcd b/FS/bin/freeside-selfservice-xmlrpcd
index 6413b2b..7e373a0 100755 (executable)
--- a/FS/bin/freeside-selfservice-xmlrpcd
+++ b/FS/bin/freeside-selfservice-xmlrpcd
@@ -2,9 +2,8 @@
 
 use FS::Daemon::Preforking qw( freeside_init1 freeside_init2 daemon_run );
 
-use XMLRPC::Transport::HTTP; #SOAP::Transport::HTTP;
-use XMLRPC::Lite; # for XMLRPC::Serializer
-
+use FS::XMLRPC_Lite; #XMLRPC::Lite for XMLRPC::Serializer
+                     #and XMLRPC::Transport::HTTP
 use FS::Conf;
 use FS::ClientAPI qw( load_clientapi_modules );
 use FS::ClientAPI_XMLRPC; #FS::SelfService::XMLRPC;
@@ -18,8 +17,6 @@ my %typelookup = (
 
 use constant ME => 'selfservice-xmlrpcd';
 
-#
-
 freeside_init1(ME);
 
 load_clientapi_modules;
@@ -47,6 +44,8 @@ daemon_run( 'port' => 8080, 'handle_request' =>
     $soap->request($request);
     $soap->handle;
 
+    $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
     return $soap->response;
   }
 );