From a3e79eb4bc468a2e37aee34a0d966a94dd1c0c91 Mon Sep 17 00:00:00 2001
From: Andy <88590076+AAndyProgram@users.noreply.github.com>
Date: Sat, 17 Sep 2022 20:28:27 +0300
Subject: [PATCH] Update UserDataBase.vb

Fixed typo
---
 SCrawler/API/Base/UserDataBase.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SCrawler/API/Base/UserDataBase.vb b/SCrawler/API/Base/UserDataBase.vb
index 6cf0f85..faf461d 100644
--- a/SCrawler/API/Base/UserDataBase.vb
+++ b/SCrawler/API/Base/UserDataBase.vb
@@ -554,7 +554,7 @@ BlockNullPicture:
                     If LastUpdated.HasValue And Not .ViewDateMode.Value = ShowingDates.Off Then
                         Dim f As Date = If(.ViewDateFrom.HasValue, .ViewDateFrom.Value.Date, Date.MinValue.Date)
                         Dim t As Date = If(.ViewDateTo.HasValue, .ViewDateTo.Value.Date, Date.MaxValue.Date)
-                        Select Case DirectCast(.ViewMode.Value, ShowingDates)
+                        Select Case DirectCast(.ViewDateMode.Value, ShowingDates)
                             Case ShowingDates.In : If Not LastUpdated.Value.ValueBetween(f, t) Then Return False
                             Case ShowingDates.Not : If LastUpdated.Value.ValueBetween(f, t) Then Return False
                         End Select