32 lines
557 B
Text
32 lines
557 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Inherits Markdown
|
||
|
|
|
||
|
|
Public Sub Link(hLink As MarkdownLink)
|
||
|
|
|
||
|
|
Dim sPath As String
|
||
|
|
|
||
|
|
If hLink.Link Begins "/" Then
|
||
|
|
sPath = Mid$(hLink.Link, 2)
|
||
|
|
Else If hLink.Link Begins "./" Then
|
||
|
|
sPath = Request.Path &/ Mid$(hLink.Link, 3)
|
||
|
|
Else
|
||
|
|
Return
|
||
|
|
Endif
|
||
|
|
|
||
|
|
If Not hLink.Text Then
|
||
|
|
|
||
|
|
If Main.IsImage(sPath) Then
|
||
|
|
hLink.Html = "<img src=\"" & Application.Root &/ sPath & "?show\" />"
|
||
|
|
Return
|
||
|
|
Endif
|
||
|
|
|
||
|
|
hLink.Text = Main.GetPageTitle(sPath)
|
||
|
|
|
||
|
|
Endif
|
||
|
|
|
||
|
|
hLink.Link = Application.Root &/ sPath
|
||
|
|
|
||
|
|
End
|
||
|
|
|