Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf...

[mfinanz.git] / scripts / spawn_oo.pl

diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl
index 058de34747b1f61c67cfafee10bf87be2221dd62..2e4b2ff8cc4c7a1d52a7cfc61c7262e26fe4a968 100755 (executable)
--- a/scripts/spawn_oo.pl
+++ b/scripts/spawn_oo.pl
@@ -5,6 +5,7 @@ BEGIN {
   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
 }
 
+
 use DBI;
 use Data::Dumper;
 
@@ -13,9 +14,6 @@ use SL::LXDebug;
 use SL::Form;
 use SL::Template;
 
-$userspath  = "users";
-$templates  = "templates";
-$memberfile = "users/members";
 $sendmail   = "| /usr/sbin/sendmail -t";
 
 $| = 1;
@@ -29,7 +27,7 @@ $form->{"script"} = "oe.pl";
 
 $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 | " .