Hi,

I'm hoping someone can give me some advice, I'm trying to implement a token replacement for a module, I've never developed one before although i'm familiar to some extent with .Net and VB

I have been following the tutorials Here, Here and in Mitchel Sellers book, but i can't seem to get it to work no matter what i try.

Basically it is returning system tokens like datetime but utterly refuses to callthe GetProperty function that contains my custom functions.

the only thing i can see that i did differently from the book is to create a class called "functions" rather than include code in the information object, but that should surely still work?

can anyone give me any idea why this might be?

many thanks,

John.

oh, the version is dnn 5.06.02

Hi,

Thanks for such a quick reply especially at the weekend.

I created the module through the CMS, then added a settings file and a vb class through visual studio which it added to the app code folder. i did this before getting the book! the module is simply 3 files, main ascx, settings.ascx and the functions class.

functions code is as follows:

Imports Microsoft.VisualBasic
Imports DotNetNuke.Services.Tokens
Imports DotNetNuke
Imports DotNetNuke.Entities.Modules



Namespace DotNetNuke.Modules.UP
Public Class UPTokenReplaceFunctions
Implements IPropertyAccess
Public Function GetProperty(ByVal strPropertyName As String, ByVal strFormat As String, ByVal formatProvider As System.Globalization.CultureInfo, ByVal AccessingUser As Entities.Users.UserInfo, ByVal AccessLevel As Services.Tokens.Scope, ByRef PropertyNotFound As Boolean) As String Implements Services.Tokens.IPropertyAccess.GetProperty
Dim OutputFormat As String = String.Empty
Dim PortalSettings As PortalSettings = PortalController.GetCurrentPortalSettings
If strFormat = String.Empty Then
OutputFormat = "D"
Else
OutputFormat = strFormat
End If
Select Case (strPropertyName.ToLower)
Case "email"
Return "EMAIL GOES HERE"
Case Else
Return "ooh, what happened here then?"
End Select
End Function

Public ReadOnly Property Cacheability As Services.Tokens.CacheLevel Implements Services.Tokens.IPropertyAccess.Cacheability
Get
Return CacheLevel.fullyCacheable
End Get
End Property
End Class

Public Class UPTokenReplace
Inherits Services.Tokens.TokenReplace
Public Sub New(ByVal Functions As UPTokenReplaceFunctions)
MyBase.New(Services.Tokens.Scope.DefaultSettings)
Me.UseObjectLessExpression = True
Me.PropertySource(ObjectLessToken) = Functions
End Sub

Protected Overrides Function replacedTokenValue(ByVal strObjectName As String, ByVal strPropertyName As String, ByVal strFormat As String) As String
Return MyBase.replacedTokenValue(strObjectName, strPropertyName, strFormat)
End Function

Public Function ReplaceUPTokens(ByVal strSourceText As String) As String
Return MyBase.ReplaceTokens(strSourceText) & "StrSource = " & strSourceText
End Function
End Class
End Namespace



and is called from the main file as

lbl2.Text ReplaceTokens.ReplaceUPTokens("[email]")

I'm wondering if the problem is to do with not having controlled the module.

Any advice would be most appreciated!

many thanks,

John.

Ah, that's working a lot better!

In all the articles I've read it suggests always comparing strings as lower case, so i assumed tokens could be lower case. also, the system tokens seem to work as lowercase.

Thanks for your help, it'll do what i want now and i can experiment some more with it in the future.

Cheers,

John