[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/11/21 08:51:02

Modified files:
        updater        : updatedatabase 

Log message:
        2 new userflags: serials & reports.

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

Patches:
Index: updatedatabase
===================================================================
RCS file: /sources/koha/koha/updater/updatedatabase,v
retrieving revision 1.157.2.22
retrieving revision 1.157.2.23
diff -u -b -r1.157.2.22 -r1.157.2.23
--- updatedatabase      20 Nov 2006 16:59:09 -0000      1.157.2.22
+++ updatedatabase      21 Nov 2006 08:51:01 -0000      1.157.2.23
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: updatedatabase,v 1.157.2.22 2006/11/20 16:59:09 toins Exp $
+# $Id: updatedatabase,v 1.157.2.23 2006/11/21 08:51:01 toins Exp $
 
 # Database Updater
 # This script checks for required updates to the database.
@@ -363,6 +363,20 @@
                        flagdesc            => 'allow to edit authorities',
                        defaulton           => '0',
                },
+               {
+                       uniquefieldrequired => 'bit',
+                       bit                 => '15',
+                       flag                => 'serials',
+                       flagdesc            => 'allow to serialize',
+                       defaulton           => '0',
+               },
+               {
+                       uniquefieldrequired => 'bit',
+                       bit                 => '16',
+                       flag                => 'reports',
+                       flagdesc            => 'allow to access to the reports 
module',
+                       defaulton           => '0',
+               },
        ],
 );
 
@@ -1698,8 +1712,8 @@
 while ( ( $column, $type, $null, $key, $default, $extra ) = $sth->fetchrow ){
        $marcdone=1 if ($type eq 'longtext' && $column eq 'marcxml') ;
 }
-unless ($marcdone) {
-#unless (1) { # to disable this block just to test.
+#unless ($marcdone) {
+unless (1) { # to disable this block just to test.
        print "moving MARC record to biblioitems table\n";
        # changing marc field type
        $dbh->do('ALTER TABLE `biblioitems` CHANGE `marc` `marc` BLOB NULL 
DEFAULT NULL ');
@@ -1945,6 +1959,9 @@
 exit;
 
 # $Log: updatedatabase,v $
+# Revision 1.157.2.23  2006/11/21 08:51:01  toins
+# 2 new userflags: serials & reports.
+#
 # Revision 1.157.2.22  2006/11/20 16:59:09  toins
 # adding a userflags: 'editauthorities'.
 #