Revision a9da5102
Von Sven Schöling vor fast 9 Jahren hinzugefügt
SL/DBUpgrade2/Base.pm | ||
---|---|---|
11 | 11 |
use File::Copy (); |
12 | 12 |
use File::Path (); |
13 | 13 |
use List::MoreUtils qw(uniq); |
14 |
use SL::DBUtils qw(selectfirst_hashref_query); |
|
14 | 15 |
use version; |
15 | 16 |
|
16 | 17 |
use Rose::Object::MakeMethods::Generic ( |
... | ... | |
97 | 98 |
croak "File '${src_dir}/$_' does not exist" unless -f "${src_dir}/$_"; |
98 | 99 |
} |
99 | 100 |
|
100 |
return 1 unless my $template_dir = $::instance_conf->reload->get_templates; |
|
101 |
# can't use Rose or InstanceConf here because defaults might not be fully upgraded yet. |
|
102 |
my $defaults = selectfirst_hashref_query($::form, $::form->get_standard_dbh, "SELECT * FROM defaults"); |
|
103 |
return 1 unless my $template_dir = $defaults->{template}; |
|
101 | 104 |
$::lxdebug->message(LXDebug::DEBUG1(), "add_print_templates: template_dir $template_dir"); |
102 | 105 |
|
103 | 106 |
foreach my $src_file (@files) { |
Auch abrufbar als: Unified diff
swiss: Datenbankupgrades verschoben