Changeset 881 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

12/27/11 18:14:32 (13 years ago)

Author:

nanardon

Message:

• add tools to update database schema
• install sql file and attributes data with software

File:

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

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

@@ -83 +83 @@
         $self->{_db}->do(q{set DATESTYLE to 'DMY'});
         $self->log(LA_DEBUG, 'New connection to DB');
-        my $sv = $self->get_global_value('schema_version') || 1;
-        if ($sv < $SCHEMA_VERSION) {
-            $self->log(LA_CRIT,
-                "Schema version %d found, %d is need, please update db for `%s' base",
-                $sv,
-                $SCHEMA_VERSION,
-                $self->label,
-            );
-            # return;
-        }
         return $self->{_db};
     }
@@ -105 +95 @@
 sub load {
     my ($self) = @_;
-    return $self->db ? 1 : 0;    
+    if (!$self->db) { return 0 };
+
+    my $sv = $self->get_global_value('schema_version') || 1;
+    if ($sv < $SCHEMA_VERSION) {
+        $self->log(LA_CRIT,
+            "Schema version %d found, %d is need, please update db for `%s' base",
+            $sv,
+            $SCHEMA_VERSION,
+            $self->label,
+        );
+        # return;
+    }
+
+    1;
 }