From bebba22b313bb1edbd397095f634b6a821f12cc0 Mon Sep 17 00:00:00 2001
From: "Kostis Anagnostopoulos @ STUW025" <ankostis@gmail.com>
Date: Fri, 22 May 2015 16:10:32 +0200
Subject: [PATCH] FIX Job-save missing criteria (hack).
---
CSE/IO/cCriteria.vb | 4 ++++
CSE/IO/cJob.vb | 3 +++
2 files changed, 7 insertions(+)
diff --git a/CSE/IO/cCriteria.vb b/CSE/IO/cCriteria.vb
index f57d8d0..2021db7 100644
--- a/CSE/IO/cCriteria.vb
+++ b/CSE/IO/cCriteria.vb
@@ -395,6 +395,10 @@ Public Class cCriteria
Me.t_amb_min = g("t_amb_min")
End Sub
+ Public Sub OnBeforeContentStored_hack()
+ Me.OnBeforeContentStored()
+ End Sub
+
''' <summary>Override it to set custome fields</summary>
Protected Overrides Sub OnBeforeContentStored()
Dim g, b As Object
diff --git a/CSE/IO/cJob.vb b/CSE/IO/cJob.vb
index 5efb769..16f6671 100644
--- a/CSE/IO/cJob.vb
+++ b/CSE/IO/cJob.vb
@@ -267,6 +267,9 @@ Public Class cJob
b.valid_t_tire = valid_t_tire
b.valid_t_amb = valid_t_amb
b.valid_RRC = valid_RRC
+
+ Crt.OnBeforeContentStored_hack()
+ Me.Criteria = Crt
End Sub
Public Property vehicle_fpath As String
--
GitLab