X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/ee736cda7e6e5ff820febb3ce4b66ad5fb71e32a..d59576d22d6c7720c0078b3e17232c81bbaf9373:/scripts/spawn_oo.pl?ds=inline

diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl
index 387961e2e..d0e8f789c 100755
--- a/scripts/spawn_oo.pl
+++ b/scripts/spawn_oo.pl
@@ -1,5 +1,10 @@
 #!/usr/bin/perl
 
+BEGIN {
+  unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
+  push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+}
+
 use DBI;
 use Data::Dumper;
 
@@ -8,25 +13,18 @@ use SL::LXDebug;
 use SL::Form;
 use SL::Template;
 
-$userspath  = "users";
-$templates  = "templates";
-$memberfile = "users/members";
 $sendmail   = "| /usr/sbin/sendmail -t";
 
 $| = 1;
 
 $lxdebug = LXDebug->new();
 
-require "lx-erp.conf";
-
 $form = new Form;
 $form->{"script"} = "oe.pl";
-$form->{"path"} = "bin/mozilla";
-
 
 $ENV{'HOME'} = getcwd() . "/$userspath";
 
-my $template = OpenDocumentTemplate->new("", $form, \%myconfig, $userspath);
+my $template = SL::Template::create(type => 'OpenDocument', file_name => '', form => $form, myconfig => \%myconfig, userspath => $userspath);
 
 if (@ARGV && ($ARGV[0] eq "-r")) {
   system("ps auxww | " .