seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fixed a bug (which is really more of a work-around for a deeper bug to be addressed later) where the database would keep thinking it needed to resync, even after it had successfully.

Browse Source 
Signed-off-by: Digimer <digimer@alteeve.ca>
main
Digimer 6 years ago
parent dc6c93f4c3
commit 9a4cefe3fb
1 changed files with 6 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 11
      Anvil/Tools/Database.pm

11
Anvil/Tools/Database.pm
Unescape View File

@ -5047,6 +5047,7 @@ sub refresh_timestamp
This will resync the database data on this and peer database(s) if needed. It takes no arguments and will immediately return unless C<< sys::database::resync_needed >> was set. This will resync the database data on this and peer database(s) if needed. It takes no arguments and will immediately return unless C<< sys::database::resync_needed >> was set.
=cut =cut
### TODO - BUG: This is, somehow, writing existing records into the history schema of databases.
sub resync_databases sub resync_databases
{ {
my $self = shift; my $self = shift;
@ -5149,7 +5150,7 @@ sub resync_databases
$anvil->data->{db_resync}{$uuid}{history}{sql} = []; $anvil->data->{db_resync}{$uuid}{history}{sql} = [];
# Read in the data, modified_date first as we'll need that for all entries we record. # Read in the data, modified_date first as we'll need that for all entries we record.
my $query = "SELECT modified_date AT time zone 'UTC', $uuid_column, "; my $query = "SELECT DISTINCT modified_date AT time zone 'UTC' AS utc_modified_date, $uuid_column, ";
my $read_columns = []; my $read_columns = [];
push @{$read_columns}, "modified_date"; push @{$read_columns}, "modified_date";
push @{$read_columns}, $uuid_column; push @{$read_columns}, $uuid_column;
@ -5173,7 +5174,7 @@ sub resync_databases
{ {
$query .= " WHERE ".$host_column." = ".$anvil->data->{sys}{database}{use_handle}->quote($anvil->data->{sys}{host_uuid}); $query .= " WHERE ".$host_column." = ".$anvil->data->{sys}{database}{use_handle}->quote($anvil->data->{sys}{host_uuid});
} }
$query .= " ORDER BY modified_date DESC;"; $query .= " ORDER BY utc_modified_date DESC;";
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0074", variables => { uuid => $uuid, query => $query }}); $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $debug, key => "log_0074", variables => { uuid => $uuid, query => $query }});
my $results = $anvil->Database->query({uuid => $uuid, query => $query, source => $THIS_FILE, line => __LINE__}); my $results = $anvil->Database->query({uuid => $uuid, query => $query, source => $THIS_FILE, line => __LINE__});
@ -5888,8 +5889,8 @@ sub _find_behind_databases
my $schema = $count ? "history" : "public"; my $schema = $count ? "history" : "public";
$query = " $query = "
SELECT SELECT DISTINCT
round(extract(epoch from modified_date)) round(extract(epoch from modified_date)) AS unix_modified_date
FROM FROM
".$schema.".".$table." "; ".$schema.".".$table." ";
if ($host_column) if ($host_column)
@ -5900,7 +5901,7 @@ WHERE
} }
$query .= " $query .= "
ORDER BY ORDER BY
modified_date DESC unix_modified_date DESC
;"; ;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
uuid => $uuid, uuid => $uuid,

Write Preview
Loading…
Cancel
Save