# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
-$VERSION = "19.12.00.015";
+$VERSION = "19.12.00.016";
sub version {
return $VERSION;
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
- $dbh->do(q{
- INSERT IGNORE INTO `userflags` (`bit`, `flag`, `flagdesc`, `defaulton`)
- VALUES (12, 'suggestions', 'Suggestion management', 0)
- });
-
- $dbh->do(q{
- UPDATE permissions SET module_bit=12
- WHERE code="suggestions_manage"
- });
-
- $dbh->do(q{
- UPDATE borrowers SET flags = flags + (1<<12) WHERE flags & (1 << 11)
- });
-
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 22868 - Move suggestions_manage subpermission out of acquisition permission)\n";
-}
print "Upgrade to $DBversion done (Bug 24296 - Update stockrotation to use 'reason' field in transfers table)\n";
}
+$DBversion = '19.12.00.016';
+if( CheckVersion( $DBversion ) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO `userflags` (`bit`, `flag`, `flagdesc`, `defaulton`)
+ VALUES (12, 'suggestions', 'Suggestion management', 0)
+ });
+
+ $dbh->do(q{
+ UPDATE permissions SET module_bit=12
+ WHERE code="suggestions_manage"
+ });
+
+ $dbh->do(q{
+ UPDATE borrowers SET flags = flags + (1<<12) WHERE flags & (1 << 11)
+ });
+
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 22868 - Move suggestions_manage subpermission out of acquisition permission)\n";
+}
+
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';