From 3a8cd049da700bfebbc1d4fff3a422cc8bce0a5a Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Fri, 14 Oct 2016 13:09:47 -0400
Subject: Added next and previous links to post templates.  Links to .txt files
 are now automatically changed to .htm files when creating link HTML.

---
 link.bas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'link.bas')

diff --git a/link.bas b/link.bas
index 92a1982..c256035 100644
--- a/link.bas
+++ b/link.bas
@@ -5,8 +5,12 @@
 19004 REM         LINKLBL$ - Label
 19005 REM OUTPUT - LINKHTM$ - HTML link
 19006 REM ==============================
-19010 LINKHTML$ = "<A HREF='"+LINKURL$+"'>"+LINKLBL$+"</A>"
-19020 RETURN
+19010 REM Check if the extension of a URL is TXT and change it
+19020 EXTI = INSTR(LINKURL$, ".TXT") + INSTR(LINKURL$, ".txt")
+19030 IF EXTI <> 0 AND LEN(LINKURL$) - EXTI = 3 THEN LURL$ = LEFT$(LINKURL$, LEN(LINKURL$)-3)+"htm" ELSE LURL$=LINKURL$
+19040 LINKHTML$ = "<A HREF='"+LURL$+"'>"+LINKLBL$+"</A>"
+19050 RETURN
+
 19100 REM ==============================
 19101 REM Build a list of links
 19102 REM
-- 
cgit v1.2.3