RT# 31208 Docs $FS::Record::qsearch_qualify_columns

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

diff --git a/FS/bin/freeside-selfservice-xmlrpcd b/FS/bin/freeside-selfservice-xmlrpcd
index acf516a..88cfb7c 100755 (executable)
--- a/FS/bin/freeside-selfservice-xmlrpcd
+++ b/FS/bin/freeside-selfservice-xmlrpcd
@@ -28,6 +28,7 @@ use FS::UID qw( adminsuidsetup forksuidsetup dbh );
 use FS::Conf;
 use FS::ClientAPI qw( load_clientapi_modules );
 use FS::ClientAPI_XMLRPC; #FS::SelfService::XMLRPC;
+use FS::TicketSystem;
 
 #freeside
 my $FREESIDE_LOG = "%%%FREESIDE_LOG%%%";
@@ -195,6 +196,9 @@ sub server_do_fork {
         #freeside db connection, etc.
         forksuidsetup($user);
 
+        #why isn't this needed ala freeside-selfservice-server??
+        #FS::TicketSystem->init();
+
         return;
     }
 }
@@ -309,6 +313,9 @@ sub client_got_request {
 
     $soap->request($request);
     $soap->handle;
+
+    $FS::UID::dbh->commit() if $FS::UID::dbh; #XXX handle commit error
+
     my $response = $soap->response;
 
     $heap->{client}->put($response);