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     $dbh->rollback();
  11     $dbh->begin_work();
  12   }
  13
  14   return 1;
  15 }
  16
  17 return do_update();