[Koha-cvs] koha/updater updatedatabase [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/10/18 13:31:13

Modified files:
        updater        : updatedatabase 

Log message:
        Borrowers.categorycode must have 10 chars lenght & 
categories.categorycode must be a primary key.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/updater/updatedatabase?cvsroot=koha&only_with_tag=rel_3_0&r1=1.157.2.10&r2=1.157.2.11

Patches:
Index: updatedatabase
===================================================================
RCS file: /sources/koha/koha/updater/updatedatabase,v
retrieving revision 1.157.2.10
retrieving revision 1.157.2.11
diff -u -b -r1.157.2.10 -r1.157.2.11
--- updatedatabase      17 Oct 2006 16:18:14 -0000      1.157.2.10
+++ updatedatabase      18 Oct 2006 13:31:13 -0000      1.157.2.11
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: updatedatabase,v 1.157.2.10 2006/10/17 16:18:14 hdl Exp $
+# $Id: updatedatabase,v 1.157.2.11 2006/10/18 13:31:13 toins Exp $
 
 # Database Updater
 # This script checks for required updates to the database.
@@ -489,6 +489,12 @@
                    null  => 'NOT NULL',
                    extra => '',
                },
+               {
+                   field => 'categorycode',
+                   type  => 'varchar(10)',
+                   null  => 'NOT NULL',
+                   extra => '',
+               }
        ],
        
        biblioitems =>  [
@@ -547,8 +553,8 @@
                {
                    field   => 'categorycode',
                    type    => 'varchar(10)',
-                   null    => 'not null',
-                   key     => '',
+                   null    => 'NOT NULL',
+                   key     => 'PRI',
                    default => '',
                    extra   => '',
                },
@@ -1625,9 +1631,9 @@
                print "\r$totaldone / $totaltodo" unless ($totaldone % 100);
        }
        print "\rdone\n";
+#}
 }
 
-
 # at last, remove useless fields
 foreach $table ( keys %uselessfields ) {
        my @fields = split /,/,$uselessfields{$table};
@@ -1848,6 +1854,9 @@
 exit;
 
 # $Log: updatedatabase,v $
+# Revision 1.157.2.11  2006/10/18 13:31:13  toins
+# Borrowers.categorycode must have 10 chars lenght & categories.categorycode 
must be a primary key.
+#
 # Revision 1.157.2.10  2006/10/17 16:18:14  hdl
 # Changing primary key in aqbookfund.
 # Making it branchcode+aqbookfundid rather than simple aqbookfundid.