projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Perl-Scripte mit UTF-8 encodierten Umlaugen brauchen "use utf8"
[kivitendo-erp.git]
/
sql
/
Pg-upgrade2
/
globalprojectnumber_ap_ar_oe.pl
diff --git
a/sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl
b/sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl
index
a9de59f
..
608e442
100644
(file)
--- a/
sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl
+++ b/
sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl
@@
-2,8
+2,16
@@
# @description: Neue Spalte für eine globale Projektnummer in Einkaufs- und Verkaufsbelegen
# @depends: release_2_4_1
# @description: Neue Spalte für eine globale Projektnummer in Einkaufs- und Verkaufsbelegen
# @depends: release_2_4_1
+use strict;
+
die("This script cannot be run from the command line.") unless ($main::form);
die("This script cannot be run from the command line.") unless ($main::form);
+sub mydberror {
+ my ($msg) = @_;
+ die($dbup_locale->text("Database update error:") .
+ "<br>$msg<br>" . $DBI::errstr);
+}
+
sub do_query {
my ($query, $may_fail) = @_;
sub do_query {
my ($query, $may_fail) = @_;