X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/99ed8abf161b15ba5456c34f59a6155281cb2eea..7c30cb2ac2012086384f0915d7a3a95c816cc02b:/scripts/spawn_oo.pl

diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl
index b192a9318..26991f109 100755
--- a/scripts/spawn_oo.pl
+++ b/scripts/spawn_oo.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl
 
 BEGIN {
-  unshift @INC, "modules/YAML"; # Use our own version of YAML.
-  push @INC, "modules";         # Only use our own versions of modules if there's no system version.
+  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;
@@ -29,7 +29,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 | " .