[Koha-cvs] koha/updater updatedatabase

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/17 12:51:48

Modified files:
        updater        : updatedatabase 

Log message:
        auto_increment id in aqbooksellers

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/updater/updatedatabase?cvsroot=koha&r1=1.154&r2=1.155

Patches:
Index: updatedatabase
===================================================================
RCS file: /sources/koha/koha/updater/updatedatabase,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -b -r1.154 -r1.155
--- updatedatabase      17 Jul 2006 12:28:45 -0000      1.154
+++ updatedatabase      17 Jul 2006 12:51:48 -0000      1.155
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: updatedatabase,v 1.154 2006/07/17 12:28:45 toins Exp $
+# $Id: updatedatabase,v 1.155 2006/07/17 12:51:48 toins Exp $
 
 # Database Updater
 # This script checks for required updates to the database.
@@ -849,15 +849,23 @@
                },
        ],
        aqbooksellers =>  [
-               {
+{
+            field   => 'id',
+            type    => 'int(11)',
+            null    => 'NOT NULL',
+            key     => '',
+            default => '',
+            extra   => 'auto_increment',
+},
+{
                        field   => 'listprice',
                        type    => 'varchar(10)',
                        null    => 'NULL',
                        key             => '',
                        default => '',
                        extra   => '',
-               },
-               {
+},
+{
                        field   => 'invoiceprice',
                        type    => 'varchar(10)',
                        null    => 'NULL',
@@ -1716,13 +1724,14 @@
                                $action="add";
                        }
 # if it's a primary key, drop the previous pk, before altering the table
-                       my $sth;
-                       if ($key ne 'PRIMARY KEY') {
-                               $sth =$dbh->prepare("alter table $table $action 
$field $type $null $key $extra default ? $after");
-                       } else {
-                               $sth =$dbh->prepare("alter table $table drop 
primary key, $action $field $type $null $key $extra default ? $after");
-                       }
-                       $sth->execute($default);
+#                      my $sth;
+   my $request = "alter table $table ";
+    $request.=" drop primary key" if $key eq 'PRIMARY KEY';
+    $request.= " $action $field $type $null $key $extra ";
+    $request.= "default ".$dbh->quote($default) if $default;
+    $request.= " $after";
+#    print "REQ : $request";
+                       $dbh->do($request);
                        print "  alter or create $field in $table\n" unless 
$silent;
                }
        }
@@ -2164,8 +2173,8 @@
 exit;
 
 # $Log: updatedatabase,v $
-# Revision 1.154  2006/07/17 12:28:45  toins
-# sync with rel_2_2
+# Revision 1.155  2006/07/17 12:51:48  toins
+# auto_increment id in aqbooksellers
 #
 # Revision 1.153  2006/07/04 14:36:52  toins
 # Head & rel_2_2 merged