# @description: Neue Spalte für eine globale Projektnummer in Einkaufs- und Verkaufsbelegen
# @depends: release_2_4_1
+use strict;
+
+# import vars from caller
+our ($dbup_locale, $dbup_myconfig, $dbh);
+
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) = @_;