diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-14 13:09:47 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-14 13:09:47 -0400 |
| commit | 3a8cd049da700bfebbc1d4fff3a422cc8bce0a5a (patch) | |
| tree | d30662ab3f580c5ae923c4f3c6923a6be6256cf9 /link.bas | |
| parent | 364966ec5d0b463c4786bbfc5119229b85aa4dc0 (diff) | |
| download | gwblog-3a8cd049da700bfebbc1d4fff3a422cc8bce0a5a.tar.gz gwblog-3a8cd049da700bfebbc1d4fff3a422cc8bce0a5a.zip | |
Added next and previous links to post templates. Links to .txt files are now automatically changed to .htm files when creating link HTML.
Diffstat (limited to 'link.bas')
| -rw-r--r-- | link.bas | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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 |