sql/Pg-upgrade/Pg-upgrade-2.2.0.36-2.2.0.37.pl

   1 #!/usr/bin/perl
   2
   3 # Datenbankupgrade: Potenziell existierenden Primärschlüssel von orderitems
   4
   5 die("This script cannot be run from the command line.") unless ($main::form);
   6
   7 sub do_update {
   8   my $query = "ALTER TABLE orderitems DROP CONSTRAINT orderitems_pkey";
   9   if (!$dbh->do($query)) {
  10     $main::lxdebug->message(0, "gab es nicht");
  11     $dbh->rollback();
  12     $dbh->begin_work();
  13   }
  14
  15   return 1;
  16 }
  17
  18 return do_update();