From 8fc7262816a9108f721d744c9c81e5a68d065ac6 Mon Sep 17 00:00:00 2001
From: janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 12 Mar 2008 10:16:35 +0000
Subject: [PATCH] Found workaround.

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9702 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/gosa-si-server | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server
index 2da5c1e56..0f0aa84d4 100755
--- a/gosa-si/gosa-si-server
+++ b/gosa-si/gosa-si-server
@@ -1415,7 +1415,7 @@ sub change_goto_state {
 
 
 sub create_fai_server_db {
-    my ($table_name) = @_;
+    my ($table_name, $kernel) = @_;
 	my $result;
 
 	if(defined($ldap_handle)) {
@@ -1447,18 +1447,18 @@ sub create_fai_server_db {
 			   }
 		   }
 		daemon_log("INFO: create_fai_server_db: finished", 5);
-	}	
 
-	# Now we can create the packages list
-	$kernel->yield('create_packages_list_db');
+		# TODO: Find a way to post the 'create_packages_list_db' event
+		&create_packages_list_db();
+	}	
 
    	return $result;
 }
 
 sub run_create_fai_server_db {
-    my ($session, $heap, $table_name) = @_[SESSION, HEAP, ARG0];
+    my ($kernel, $session, $heap, $table_name) = @_[KERNEL, SESSION, HEAP, ARG0];
     my $task = POE::Wheel::Run->new(
-            Program => sub { &create_fai_server_db($table_name) },
+            Program => sub { &create_fai_server_db($table_name,$kernel) },
             StdoutEvent  => "session_run_result",
             StderrEvent  => "session_run_debug",
             CloseEvent   => "session_run_done",
@@ -1832,7 +1832,7 @@ sub create_packages_list_db {
     return;
 }
 sub run_create_packages_list_db {
-    my ($session, $heap, $sources_list) = @_[SESSION, HEAP, ARG0];
+    my ($session, $heap) = @_[SESSION, HEAP];
     my $task = POE::Wheel::Run->new(
             Program => sub {&create_packages_list_db},
             StdoutEvent  => "session_run_result",
-- 
2.30.2