projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ActionBar: Tooltips für deaktivierte Aktionen in oe.pl
[kivitendo-erp.git]
/
SL
/
DBUpgrade2.pm
diff --git
a/SL/DBUpgrade2.pm
b/SL/DBUpgrade2.pm
index
5c8280b
..
bd65a1a
100644
(file)
--- a/
SL/DBUpgrade2.pm
+++ b/
SL/DBUpgrade2.pm
@@
-7,6
+7,7
@@
use List::MoreUtils qw(any);
use SL::Common;
use SL::DBUpgrade2::Base;
use SL::DBUtils;
use SL::Common;
use SL::DBUpgrade2::Base;
use SL::DBUtils;
+use SL::System::Process;
use strict;
use strict;
@@
-26,7
+27,7
@@
sub init {
$params{path_suffix} ||= '';
$params{schema} ||= '';
$params{path_suffix} ||= '';
$params{schema} ||= '';
- $params{path} ||=
"
sql/Pg-upgrade2" . $params{path_suffix};
+ $params{path} ||=
SL::System::Process->exe_dir . "/
sql/Pg-upgrade2" . $params{path_suffix};
map { $self->{$_} = $params{$_} } keys %params;
map { $self->{$_} = $params{$_} } keys %params;
@@
-609,7
+610,7
@@
The global C<SL::Form> object.
=back
A Perl script can actually implement queries that fail while
=back
A Perl script can actually implement queries that fail while
-continu
e
ing the process by handling the transaction itself, e.g. with
+continuing the process by handling the transaction itself, e.g. with
the following function:
sub do_query {
the following function:
sub do_query {