Website openantrag.de
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
OpenAntrag/OpenAntragLib/RepresentationRouteConstrai...

35 lines
1.1 KiB

Imports System.Web
Imports System.Web.Routing
Public Class RepresentationRouteConstraint
Implements IRouteConstraint
Public Function Match(httpContext As HttpContextBase,
route As Route,
parameterName As String,
values As RouteValueDictionary,
routeDirection As RouteDirection) As Boolean Implements IRouteConstraint.Match
Dim intLength As Integer = values.Count - 1
Dim strController As String = values.Values(intLength - 1)
Dim strAction As String = values.Values(intLength)
Dim strParameterName As String = parameterName
Dim strParameterValue As String = values.Item(parameterName)
If strParameterName = "keyRepresentation" AndAlso
String.IsNullOrEmpty(strParameterValue) = False AndAlso
strController = "Representation" Then
Dim rep As Representation = GlobalData.Representations.GetByKey(strParameterValue.ToLower)
Return rep IsNot Nothing
End If
Return False
End Function
End Class