<% Option Explicit %> <% Class JurisdictionController Public Model Public Sub Index dim page_size : page_size = 10 dim page_num : page_num = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1) dim page_count, record_count set Model = new PagedIndex_ViewModel_Class Model.Title = "Jurisdiction" set Model.Jurisdiction = JurisdictionRepository.FindPaged(empty, "JCode", page_size, page_num, page_count, record_count) Model.CurrentPageNumber = page_num Model.PageSize = page_size Model.PageCount = page_count Model.RecordCount = record_count %> <% End Sub Public Sub Search dim searchValue:searchValue = Choice(Request.Form.Count = 0,Request.QueryString("q"),Request.Form("q")) dim page_size : page_size = 10 dim page_num : page_num = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1) dim page_count, record_count set Model = new PagedIndex_ViewModel_Class Model.Title = "Jurisdiction" set Model.Jurisdiction = JurisdictionRepository.SearchTablePaged(Array("JCode","%" & searchValue & "%","Name","%" & searchValue & "%","Mailing_Address","%" & searchValue & "%","CSZ","%" & searchValue & "%","IMB","%" & searchValue & "%","IMB_Digits","%" & searchValue & "%"),"JCode", page_size, page_num, page_count, record_count) Model.CurrentPageNumber = page_num Model.PageSize = page_size Model.PageCount = page_count Model.RecordCount = record_count %> <% End Sub Public Sub Edit dim id : id = Request.QueryString("Id") set Model = new Edit_ViewModel_Class set Model.Jurisdiction = JurisdictionRepository.FindByJCode(id) set Model.Contacts = ContactsRepository.Find(Array("JURISCODE = ?",id),empty) Model.Title = "Edit Jurisdiction" HTMLSecurity.SetAntiCSRFToken "JurisdictionEditForm" %> <% Flash.Success = "Jurisdiction Updated." End Sub Public Sub EditPost MVC.RequirePost HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "JurisdictionEditForm", Request.Form("nonce"), "Edit", Array("Id", Request.Form("Id")) dim JCode : JCode = Request.Form("Id") dim model : set model = JurisdictionRepository.FindByJCode(JCode) set model = Automapper.AutoMap(Request.Form, model) 'model.Validate 'If model.Validator.HasErrors then FormCache.SerializeForm "EditJurisdiction", Request.Form ' Flash.Errors = model.Validator.Errors ' MVC.RedirectToActionExt "Edit", Array("Id",JCode) 'Else JurisdictionRepository.Update model FormCache.ClearForm "EditJurisdiction" Flash.Success = "Jurisdiction updated." MVC.RedirectToAction "Index" 'End If End Sub Public Sub Create dim form_params : set form_params = FormCache.DeserializeForm("NewJurisdiction") If Not form_params Is Nothing then set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class) Else set Model = new Create_ViewModel_Class End If HTMLSecurity.SetAntiCSRFToken "JurisdictionCreateForm" %> <% End Sub Public Sub CreatePost MVC.RequirePost HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "JurisdictionCreateForm", Request.Form("nonce"), "Create" dim new_Jurisdiction_model : set new_Jurisdiction_model = Automapper.AutoMap(Request.Form, new JurisdictionModel_Class) 'new_Jurisdiction_model.Validator.Validate 'If new_Jurisdiction_model.Validator.HasErrors then ' FormCache.SerializeForm "NewJurisdiction", Request.Form ' Flash.Errors = new_Jurisdiction_model.Validator.Errors ' MVC.RedirectToAction "Create" 'Else JurisdictionRepository.AddNew new_Jurisdiction_model ' FormCache.ClearForm "NewJurisdiction" Flash.Success = "Jurisdiction added." MVC.RedirectToAction "Index" 'End If End Sub Public Sub Delete dim id : id = Request.QueryString("Id") set Model = new Delete_ViewModel_Class set Model.Jurisdiction = JurisdictionRepository.FindByJCode(id) Model.Title = "Delete Jurisdiction" HTMLSecurity.SetAntiCSRFToken "JurisdictionDeleteForm" %> <% End Sub Public Sub DeletePost MVC.RequirePost HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "JurisdictionDeleteForm", Request.Form("nonce"), "Create" dim id : id = Request.Form("Id") JurisdictionRepository.Delete id Flash.Success = "Jurisdiction deleted." MVC.RedirectToAction "Index" End Sub Public Sub Createkit dim id : id = Request.QueryString("Id") set Model = new Delete_ViewModel_Class set Model.Jurisdiction = JurisdictionRepository.FindByJCode(id) Model.Title = "Create Kit" HTMLSecurity.SetAntiCSRFToken "JurisdictionDeleteForm" %> <% End sub Public Sub CreateKitPost MVC.RequirePost HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "CreateKitForm", Request.Form("nonce"), "Index" dim id : id = Request.QueryString("Id") set Model = new Delete_ViewModel_Class set Model.Jurisdiction = JurisdictionRepository.FindByJCode(id) Model.Title = "Create Kit" HTMLSecurity.SetAntiCSRFToken "JurisdictionDeleteForm" %> <% End sub End Class MVC.Dispatch %>