# - #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 = "20.06.00.000";
+$VERSION = "20.06.00.001";
sub version {
return $VERSION;
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
-
- for my $f (qw( streetnumber streettype zipcode mobile B_streetnumber B_streettype B_zipcode ) ) {
- $dbh->do(qq|
- ALTER TABLE borrowers MODIFY $f TINYTEXT DEFAULT NULL
- |);
- $dbh->do(qq|
- ALTER TABLE deletedborrowers MODIFY $f TINYTEXT DEFAULT NULL
- |);
- }
- for my $f ( qw( B_address altcontactfirstname altcontactsurname altcontactaddress1 altcontactaddress2 altcontactaddress3 altcontactzipcode altcontactphone ) ) {
- $dbh->do(qq|
- ALTER TABLE borrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
- |);
- $dbh->do(qq|
- ALTER TABLE deletedborrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
- |);
- }
-
- NewVersion( $DBversion, 24986, "Switch borrowers address related fields to TINYTEXT or MEDIUMTEXT");
-}
NewVersion( $DBversion, undef, 'All our codebase are belong to everybody' );
}
+$DBversion = '20.06.00.001';
+if( CheckVersion( $DBversion ) ) {
+ for my $f (qw( streetnumber streettype zipcode mobile B_streetnumber B_streettype B_zipcode ) ) {
+ $dbh->do(qq|
+ ALTER TABLE borrowers MODIFY $f TINYTEXT DEFAULT NULL
+ |);
+ $dbh->do(qq|
+ ALTER TABLE deletedborrowers MODIFY $f TINYTEXT DEFAULT NULL
+ |);
+ }
+ for my $f ( qw( B_address altcontactfirstname altcontactsurname altcontactaddress1 altcontactaddress2 altcontactaddress3 altcontactzipcode altcontactphone ) ) {
+ $dbh->do(qq|
+ ALTER TABLE borrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
+ |);
+ $dbh->do(qq|
+ ALTER TABLE deletedborrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
+ |);
+ }
+
+ NewVersion( $DBversion, 24986, "Switch borrowers address related fields to TINYTEXT or MEDIUMTEXT");
+}
+
# 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/';