Changeset 2083 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

09/18/17 19:49:37 (7 years ago)

Author:

nanardon

Message:

Make sql-upgrade automatic

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -18 +18 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-sub SCHEMA_VERSION { 11 };
+sub SCHEMA_VERSION { 26 };
 
 =head1 NAME
@@ -98 +98 @@
         $self->log(LA_DEBUG, 'New connection to DB');
 
+        {
+            my $sv = $self->get_global_value('schema_version') || 1;
+            if ($sv < SCHEMA_VERSION) {
+                require LATMOS::Accounts::Bases::Sql::upgrade;
+                if ($self->SchemaUpgrade()) {
+                    $self->commit;
+                } else {
+                    $self->rollback;
+                    return;
+                }
+            }
+        }
 
         foreach my $otype ($self->list_supported_objects) {