MS Common: Version 3.0.2 - GDPicture Licensing

App/EmailProfiler.Common/clsWorker.vb

@@ -106,6 +106,9 @@ Public Class clsWorker
             Dim EmailAccountTable As DataTable = LoadEmailAccounts()
             Dim PollingProfileTable = LoadPollingProfiles(ProfileId)
 
+            Dim oSQLGDPicture = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
+            GDPictureLicense = Database.GetScalarValue(oSQLGDPicture)
+
             If IsNothing(PollingProfileTable) Then
                 Logger.Warn("Error while fetching Polling Profiles. Exiting.")
                 Exit Sub