Share My Creation ChatAbox web creator and server

TomDuncan

Active Member
Licensed User
Longtime User
Small update to the building of html pages if you have moved the www folder to a different location.
Change this. Note the location change in the writeString code.

B4X:
Sub UpdateAllHtmlFiles(locale As String)
    Dim query As String = "select id, page_name FROM pages GROUP BY page_name ORDER BY id"
    Dim divs As List = sql_routines.ExecuteMemoryTable(query)
    If divs.Size>0 Then
        For z = 0 To divs.Size-1
            Dim mu() As String
            mu = divs.Get(z)
            Dim pg As String = mu(1)
            Dim body As String = buildpage.Build_auto(pg)
            File.WriteString(Main.wwwFolder,  locale & pg, body)
        Next
    End If
End Sub

Tom
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…