1 # @tag: erzeugnisnummern
2 # @description: Erzeugnisnummern und Artikelnummern sollen eindeutig sein.
3 # @depends: release_3_0_0
10 die("This script cannot be run from the command line.") unless ($main::form);
14 die($dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr);
18 my ($query, $may_fail) = @_;
20 if (!$dbh->do($query)) {
21 mydberror($query) unless ($may_fail);
28 my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id
30 WHERE (SELECT COUNT(*)
32 WHERE p.partnumber=pa.partnumber)
34 ORDER BY partnumber;|;
36 my $sth = $dbh->prepare($query);
37 $sth->execute || $main::form->dberror($query);
39 $main::form->{PARTS} = [];
40 while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
41 push @{ $main::form->{PARTS} }, $ref;
44 if ( scalar @{ $main::form->{PARTS} } > 0 ) {
49 $query = qq|ALTER TABLE parts ADD UNIQUE (partnumber)|;
52 $query = qq|ALTER TABLE defaults ADD assemblynumber TEXT|;
58 sub print_error_message {
59 print $main::form->parse_html_template("dbupgrade/erzeugnisnummern");