repair_table_model refactoring

do- · Mar 24, 2016 · 5e48bfb · 5e48bfb
1 parent c6e99ba
commit 5e48bfb
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/Eludia/Content/Watchdog.pm b/Eludia/Content/Watchdog.pm
@@ -117,6 +117,17 @@ sub try_to_repair_error {
 
 ################################################################################
 
+sub exists_sql_table {
+
+	my ($table)	 = @_;
+
+	$table && keys %{$DB_MODEL -> {tables} -> {$table}} or return 0;
+
+	return keys %{$DB_MODEL -> {tables} -> {$table} -> {columns}} > 0;
+}
+
+################################################################################
+
 sub repair_table_model {
 
 	my ($tables) = @_;
@@ -125,7 +136,7 @@ sub repair_table_model {
 
 	ref $tables eq 'ARRAY' or $tables = [$tables];
 
-	@$tables = grep {0 < keys %{$DB_MODEL -> {tables} -> {$_}}} @$tables;
+	@$tables = grep {exists_sql_table ($_)} @$tables;
 
 	@$tables or return;