I'm not sure of the brail/boo language... I was trying to see if there
were some examples. Couldn't find any with a google search.
Also... the CitationAdd function looks like this:
Private Function CitationAdd(ByVal CitationType As String, ByVal
Number As Integer, ByVal District As District) As Boolean
Dim Criteria As DetachedCriteria = DetachedCriteria.For(Of
Citation)()
Criteria.Add(Expression.Eq("CitationType", CitationType))
Criteria.Add(Expression.Eq("CitationNumber", Number))
Dim NewCitation As Citation
If Not Citation.Exists(Criteria) Then
Select Case CitationType
Case "FA"
NewCitation = New FACitation(Number)
Case "FB"
NewCitation = New FBCitation(Number)
Case Else
NewCitation = New FCCitation(Number)
End Select
NewCitation.District = District
NewCitation.UpdatedBy = Page.SecurityIdentity.Name
NewCitation.UpdatedOn = DateTime.Now
NewCitation.Create()
Else
NewCitation = Citation.FindOne(Criteria)
NewCitation.District = District
NewCitation.UpdatedBy = Page.SecurityIdentity.Name
NewCitation.UpdatedOn = DateTime.Now
NewCitation.Update()
End If
Return True
End Function
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Castle Project Users" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/castle-project-users?hl=en
-~----------~----~----~----~------~----~------~--~---
