RT# 81961 Repair broken links in POD documentation

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

diff --git a/FS/bin/freeside-selfservice-xmlrpcd b/FS/bin/freeside-selfservice-xmlrpcd
index 423d2c3..9a8481e 100755 (executable)
--- a/FS/bin/freeside-selfservice-xmlrpcd
+++ b/FS/bin/freeside-selfservice-xmlrpcd
@@ -3,9 +3,11 @@
 # based on http://www.perlmonks.org/?node_id=582781 by Justin Hawkins
 # and http://poe.perl.org/?POE_Cookbook/Web_Server_With_Forking
 
-###
-# modules and constants and variables, oh my
-###
+=head1 NAME
+
+freeside-selfservice-xmlrpcd
+
+=cut
 
 use warnings;
 use strict;
@@ -313,6 +315,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);