Imports BaseClasses

Imports BaseClasses.Data

Imports BaseClasses.Utils

Imports BaseClasses.Utils.StringUtils



Namespace ProductionBuilds.UIPublic 



Class BaseApplicationRecordControl

Inherits System.Web.UI.Control



'******************************************* 

'

'******************************************* 

Public Sub SetRowAppearance(cssName As String)

Dim ctrl As WebControl = Controls.OfType(Of WebControl)().Where(Function(c) Not (TypeOf c Is Literal) AndAlso c.Visible).First()

Dim script As String = String.Format("$('td', $('#{0}').closest('tr')).addClass('{1}');", ctrl.ClientID, cssName)

ScriptManager.RegisterStartupScript(Me, [GetType](), ClientID, script, True)

End Sub

'*******************************************